home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p024 / 11.img / BONUS2.LIB / DLGTEST.DCL next >
Encoding:
Text File  |  1992-09-25  |  3.7 KB  |  146 lines
  1. // DLGTEST.DCL
  2. // Dialog Control Language for dlgtest.c & dlgtest.lsp
  3. //   (Test Programs for User Programmable Dialog Boxes)
  4.  
  5.  
  6. // Display and set some of the dimensioning variables
  7. dimensions : dialog {
  8.     aspect_ratio = 0;
  9.     label = "AutoCAD ╝╨╡∙▒▒¿ε";
  10.     : cluster {
  11.         : cluster {
  12.             layout = vertical;
  13.             : plain_cluster {
  14.                 layout = vertical;
  15.                 : toggle {
  16.                     label = "ºφ¿ε⌐╡ª∙╜u 1";
  17.                     key = "dimse1";
  18.                 }
  19.                 : toggle {
  20.                     label = "ºφ¿ε⌐╡ª∙╜u 2";
  21.                     key = "dimse2";
  22.                 }
  23.                 : toggle {
  24.                     label = "ñσªrñ⌠Ñ¡í╨ñ║";
  25.                     key = "dimtih";
  26.                 }
  27.                 : toggle {
  28.                     label = "ñσªrñ⌠Ñ¡í╨Ñ~";
  29.                     key = "dimtoh";
  30.                 }
  31.                 : toggle {
  32.                     label = "╜uñWñσªr╝╨╡∙";
  33.                     key = "dimtad";
  34.                 }
  35.                 : toggle {
  36.                     label = "ñ╜«t╝╨╡∙";
  37.                     key = "dimtol";
  38.                 }
  39.                 : toggle {
  40.                     label = "ñWñU¡¡╝╨╡∙";
  41.                     key = "dimlim";
  42.                 }
  43.                 : toggle {
  44.                     label = "│µª∞┬α┤½";
  45.                     key = "dimalt";
  46.                 }
  47.                 : toggle {
  48.                     label = "├÷┴pªí╝╨╡∙";
  49.                     key = "dimaso";
  50.                 }
  51.                 : toggle {
  52.                     label = "┼πÑ▄⌐∞░╩╝╨╡∙";
  53.                     key = "dimsho";
  54.                 }
  55.             }
  56.         }
  57.         : cluster {
  58.             layout = vertical;
  59.             : plain_cluster {
  60.                 layout = vertical;
  61.                 : edit_box {
  62.                     label = "╜b╕╣ñjñp";
  63.                     key = "dimasz";
  64.                 }
  65.                 : edit_box {
  66.                     label = "╡u▒╫╜uñjñp";
  67.                     key = "dimtsz";
  68.                 }
  69.                 : edit_box {
  70.                     label = "╝╨╡∙ªr░¬";
  71.                     key = "dimtxt";
  72.                 }
  73.                 : edit_box {
  74.                     label = "ñññ▀░O╕╣ñjñp";
  75.                     key = "dimcen";
  76.                 }
  77.                 : edit_box {
  78.                     label = "⌐╡ª∙╜u░╛▓╛╢q";
  79.                     key = "dimexo";
  80.                 }
  81.                 : edit_box {
  82.                     label = "⌐╡ª∙╜u⌐╡ª∙╢q";
  83.                     key = "dimexe";
  84.                 }
  85.                 : edit_box {
  86.                     label = "╝╨╡∙╜u╝W╢q";
  87.                     key = "dimdle";
  88.                 }
  89.             }
  90.         }
  91.     }
  92.     ok_cancel;
  93.     errtile;
  94. }
  95.  
  96.  
  97.  
  98.  
  99.  
  100. // TestLisp DCL (Dialog Control Language)
  101. // Test Proteus/LISP
  102.  
  103. setcolor : dialog {
  104.     aspect_ratio = 0;
  105.     label = "┐∩╛▄├CªΓ";
  106.     : cluster {
  107.         layout = vertical;
  108.         image_block;
  109.         : list_box {
  110.             key = "list_col";
  111.             allow_accept = true;
  112.         }
  113.         : edit_box {
  114.             key = "edit_col";
  115.             allow_accept = true;
  116.             label = "├CªΓ╜X";
  117.             edit_width = 10;
  118.             fixed_width = true;
  119.         }
  120.     }
  121.     ok_cancel;
  122.     errtile;
  123. }
  124.  
  125.  
  126. chgtext : dialog {
  127.     aspect_ratio = 0;
  128.     label = "º∩┼▄ñσªr";
  129.     initial_focus = "old_str";
  130.     : edit_box {
  131.         key = "old_str";
  132.         label = "┬┬ªrªΩ:";
  133.         edit_width = 30;
  134.         fixed_width = true;
  135.     }
  136.     : edit_box {
  137.         key = "new_str";
  138.         allow_accept = true;
  139.         label = "╖sªrªΩ:";
  140.         edit_width = 30;
  141.         fixed_width = true;
  142.     }
  143.     ok_cancel;
  144.     errtile;
  145. }
  146.