home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p024 / 5.img / SUPPORT2.LIB / BASE.DCL < prev    next >
Encoding:
Text File  |  1993-02-09  |  10.7 KB  |  467 lines
  1. /* Next available MSG number is  24 */
  2.  
  3. // BASE.DCL
  4. // ¬⌐┼v⌐╥ª│ (C) 1991-1992  Autodesk ñ╜Ñq
  5. //
  6. //
  7. // Ñ╗│n┼ΘºK╢O¿╤▒z╢iªµÑ⌠ª≤Ñ╬│~╗▌¿D¬║½■¿⌐íB¡╫º∩ñ╬╡oªµ, ª²¼O░╚╜╨┐φ┤`ñU¡z
  8. // ¡∞½h :
  9. //
  10. // 1)  ñWªC¬║¬⌐┼v│qºi░╚╗▌ÑX▓{ªb¿Cñ@Ñ≈½■¿⌐∙╪íC
  11. // 2)  ¼█├÷¬║╗í⌐·ñσÑ≤ñ]Ñ▓╢╖⌐·╕ⁿ¬⌐┼v│qºiñ╬Ñ╗╢╡│\Ñi│qºiíC
  12. //
  13. // Ñ╗│n┼Θ╢╚┤ú¿╤º@¼░└│Ñ╬ñW¬║░╤ª╥, ª╙Ñ╝┴n⌐·⌐╬┴⌠ºtÑ⌠ª≤½O├╥; ╣∩⌐≤Ñ⌠ª≤»S«φ
  14. // Ñ╬│~ñº╛A║┘⌐╩, ÑHñ╬░╙╖~╛P░Γ⌐╥┴⌠ºtÑX¿π¬║½O├╥, ªbª╣ñ@╖ºñ⌐ÑHº_╗{íC
  15. //
  16.  
  17. // Define common prototypes and subassemblies for use by acad.dcl and
  18. //  user-defined dialogs.
  19.  
  20. // (The primitive widgets are set up automatically by init_dialog.  The
  21. // equivalent DCL is shown here (commented out) for reference.)
  22.  
  23. // dialog {
  24. //      layout          = vertical;
  25. //      is_enabled      = false;
  26. // }
  27. //
  28. // cluster {
  29. //      layout          = horizontal;
  30. // }
  31. //
  32. // radio_cluster {
  33. //      layout          = horizontal;
  34. //      is_enabled      = true;
  35. // }
  36. //
  37. // tile {
  38. //      layout          = horizontal;
  39. //      is_enabled      = true;
  40. // }
  41. //
  42. // text  : tile {
  43. //      fixed_height    = true;       // inhibit vertical expansion
  44. // }
  45. //
  46. // image : tile {
  47. // }
  48. //
  49. // button : tile {
  50. //      fixed_height    = true;
  51. //      is_tab_stop     = true;
  52. // }
  53. //
  54. // image_button : button {
  55. //      is_tab_stop     = true;
  56. // }
  57. //
  58. // toggle : tile {
  59. //      fixed_height    = true;
  60. //      is_tab_stop     = true;
  61. // }
  62. //
  63. // radio_button : tile {
  64. //      fixed_height    = true;
  65. //      is_tab_stop     = true;
  66. // }
  67. //
  68. // list_box : tile {
  69. //      is_tab_stop     = true;
  70. //      height          = 10;
  71. //      width           = 10;
  72. // }
  73. //
  74. // edit_box : tile {
  75. //      fixed_height    = true;
  76. //      is_tab_stop     = true;
  77. // }
  78. //
  79. // popup_list : tile {
  80. //      is_tab_stop     = true;
  81. //      fixed_height    = true;
  82. // }
  83. //
  84. // slider : tile {
  85. //      is_tab_stop     = true;
  86. // }
  87. //
  88. // spacer : tile {
  89. // }
  90.  
  91. //----- Styles of clusters.
  92.  
  93. row : cluster {
  94.     horizontal_margin = none;
  95.     vertical_margin = none;
  96.     children_alignment = centered;
  97. }
  98.  
  99. column : cluster {
  100.     layout = vertical;
  101.     horizontal_margin = none;
  102.     vertical_margin = none;
  103. }
  104.  
  105. boxed_row : cluster {
  106.     label = " ";
  107.     boxed = true;
  108.     children_alignment = centered;
  109. }
  110.  
  111. boxed_column : cluster {
  112.     layout = vertical;
  113.     label = " ";
  114.     boxed = true;
  115. }
  116.  
  117. //----- Styles of radio clusters.
  118.  
  119. radio_row : radio_cluster {
  120.     horizontal_margin = none;
  121.     vertical_margin = none;
  122.     children_alignment = centered;
  123. }
  124.  
  125. radio_column : radio_cluster {
  126.     layout = vertical;
  127.     horizontal_margin = none;
  128.     vertical_margin = none;
  129. }
  130.  
  131. boxed_radio_row : radio_cluster {
  132.     label = " ";
  133.     boxed = true;
  134.     children_alignment = centered;
  135. }
  136.  
  137. boxed_radio_column : radio_cluster {
  138.     layout = vertical;
  139.     label = " ";
  140.     boxed = true;
  141. }
  142.  
  143. //----- Horizontal and vertical blocks of running text.
  144.  
  145. concatenation : cluster {
  146.     fixed_width = true;
  147.     fixed_height = true;
  148.     children_alignment = centered;
  149. }
  150.  
  151. paragraph : cluster {
  152.     layout = vertical;
  153.     fixed_height = true;
  154. }
  155.  
  156. text_part : text {
  157.     horizontal_margin = none;
  158.     vertical_margin = none;
  159. }
  160.  
  161. //----- Common spacers.
  162.  
  163. spacer_0 : spacer {
  164.     height = 0;
  165.     width = 0;
  166.     horizontal_margin = none;
  167.     vertical_margin = none;
  168. }
  169.  
  170. spacer_1 : spacer {
  171.     height = 1;
  172.     width = 1;
  173.     horizontal_margin = none;
  174.     vertical_margin = none;
  175. }
  176.  
  177. //----- The normal default widget.
  178.  
  179. default_button : button {
  180.         is_default      = true;
  181. }
  182.  
  183. //----- plain_cluster and plain_text are obsolete.  Use the new cluster
  184. //      styles and running text prototypes above.
  185.  
  186. plain_cluster : cluster {
  187.         horizontal_margin = none;
  188.         vertical_margin = none;
  189. }
  190.  
  191. plain_text  : text {                // text without margins
  192.         horizontal_margin    = none;
  193.         vertical_margin      = none;
  194. }
  195.  
  196. //----- Standard prototype for making consistent "dialog retirement buttons".
  197. //      Used below for the predefined retirement buttons, and for user-defined
  198. //      dialogs that need retirement buttons with specialized verbs.
  199.  
  200. retirement_button : button {
  201.         fixed_width     = true;
  202.         width           = 8;
  203.         alignment = centered;
  204. }
  205.  
  206. //----- Standard dialog retirement buttons.  Unless one is building a dialog
  207. //      retirement subassembly containing specialized verbs, these will
  208. //      normally not be used directly by DCL code outside of base.dcl; use
  209. //      the pre-built subassemblies in the next section.
  210.  
  211. ok_button : retirement_button {
  212.         label           = /*MSG1*/"  OK  ";
  213.         key             = "accept";
  214.         is_default      = true;
  215. }
  216.  
  217. cancel_button : retirement_button {
  218.         label           = /*MSG3*/"¿·«°";
  219.         key             = "cancel";
  220.         is_cancel       = true;
  221. }
  222.  
  223. help_button : retirement_button {
  224.         label           = /*MSG5*/"¿DºUH...";
  225.         key             = "help";
  226.         mnemonic        = /*MSG6*/"H";
  227. }
  228.  
  229. info_button : retirement_button {
  230.         label           = /*MSG7*/"░T«ºI...";
  231.         key             = "info";
  232.         mnemonic        = /*MSG8*/"I";
  233. }
  234.  
  235. //----- Pre-built arrays of dialog bottom-line buttons.
  236.  
  237. ok_only : column {
  238.     fixed_width = true;
  239.     alignment = centered;
  240.     : ok_button {
  241.         is_cancel = true;
  242.     }
  243. }
  244.  
  245. ok_cancel : column {
  246.     : row {
  247.         fixed_width = true;
  248.         alignment = centered;
  249.         ok_button;
  250.         : spacer { width = 2; }
  251.         cancel_button;
  252.     }
  253. }
  254.  
  255. ok_cancel_help : column {
  256.     : row {
  257.         fixed_width = true;
  258.         alignment = centered;
  259.         ok_button;
  260.         : spacer { width = 2; }
  261.         cancel_button;
  262.         : spacer { width = 2; }
  263.         help_button;
  264.     }
  265. }
  266.  
  267. ok_cancel_help_info : column {
  268.     : row {
  269.         fixed_width = true;
  270.         alignment = centered;
  271.         ok_button;
  272.         : spacer { width = 2; }
  273.         cancel_button;
  274.         : spacer { width = 2; }
  275.         help_button;
  276.         : spacer { width = 2; }
  277.         info_button;
  278.     }
  279. }
  280.  
  281. //----- Error reporting tiles.
  282.  
  283. errtile : text {
  284.         label = "";
  285.         key = "error";
  286.         width = 35;                   // must be long enough to hold error msgs
  287.         is_error_tile = true;
  288. }
  289.  
  290. // A custer consisting of OK, Cancel, and Help on one line with the error tile
  291. //    below.
  292.  
  293. ok_cancel_help_errtile : column {
  294.     ok_cancel_help;
  295.     errtile;
  296. }
  297.  
  298. // The same thing without the Help button for subdialogues that have no help
  299. //    available.
  300.  
  301. ok_cancel_err : column {
  302.     ok_cancel;
  303.     errtile;
  304. }
  305.  
  306. //----- Currently, the only dcl setting is the audit_level which controls the
  307. //  level of semantic error checking applied during a load_dialog operation.
  308. //      (0 = none, 1 = errors, 2 = warnings, 3 = hints)
  309. // See AutoCAD's README for details.
  310. default_dcl_settings : tile {
  311.     audit_level = 1;
  312. }
  313.  
  314. //----- Miscellaneous parts used by acad.dcl.
  315.  
  316. image_block : image {
  317.         key = "show_image";
  318.         height = 1;
  319.         width = 1;
  320. }
  321.  
  322. icon_image : image_button {
  323.         color                   = 0;
  324.         width                   = 12;
  325.         aspect_ratio            = 0.66;
  326.         allow_accept            = true;
  327.         fixed_height            = true;
  328.         fixed_width             = true;
  329. }
  330.  
  331. edit12_box : edit_box {
  332.         edit_width = 12;
  333.         edit_limit = 18;
  334. }
  335.  
  336. //  The following are for the color-selection dialogs
  337.  
  338. swatch : image_button {
  339.     vertical_margin = none;
  340.     horizontal_margin = none;
  341.     fixed_height = true;
  342.     fixed_width = true;
  343.     height = 1.5;
  344.     width = 3;
  345. }
  346.  
  347. color_palette_1_7 : row {             // Standard colors 1-7
  348.     : swatch { color = 001; key = "001"; }
  349.     : swatch { color = 002; key = "002"; }
  350.     : swatch { color = 003; key = "003"; }
  351.     : swatch { color = 004; key = "004"; }
  352.     : swatch { color = 005; key = "005"; }
  353.     : swatch { color = 006; key = "006"; }
  354.     : swatch { color = 007; key = "007"; }
  355. }
  356.  
  357. color_palette_1_9 : row {             // Standard colors, plus 8 and 9
  358.     color_palette_1_7;
  359.     : swatch { color = 008; key = "008"; }
  360.     : swatch { color = 009; key = "009"; }
  361. }
  362.  
  363. color_palette_0_9 : row {             // Standard colors, plus 0, 8, and 9
  364.     : swatch { color = 000; key = "000"; }
  365.     color_palette_1_9;
  366. }
  367.  
  368. color_palette_250_255 : row {         // Grey shades 250-255
  369.     : swatch { color = 250; key = "250"; }
  370.     : swatch { color = 251; key = "251"; }
  371.     : swatch { color = 252; key = "252"; }
  372.     : swatch { color = 253; key = "253"; }
  373.     : swatch { color = 254; key = "254"; }
  374.     : swatch { color = 255; key = "255"; }
  375. }
  376.  
  377. std_rq_color :column{
  378.     :column {
  379.         :boxed_row {
  380.             fixed_width = true;
  381.             label = /*MSG13*/"╝╨╖╟├CªΓ";
  382.             color_palette_1_9;
  383.         }
  384.         :row {
  385.             :boxed_row {
  386.                 fixed_width = true;
  387.                 label = /*MSG14*/"ª╟╢Ñ";
  388.                 color_palette_250_255;
  389.             }
  390.             :boxed_row {
  391.                 fixed_width = true;
  392.                 label = /*MSG15*/"┼▐┐Φ├CªΓ";
  393.                 :button {
  394.                     label = /*MSG16*/"BYLAYER";
  395.                     mnemonic = /*MSG17*/"L";
  396.                     key = "256";
  397.                 }
  398.                 :button {
  399.                     label = /*MSG18*/"BYBLOCK";
  400.                     mnemonic = /*MSG19*/"B";
  401.                     key = "000";
  402.                 }
  403.             }
  404.         }
  405.     }
  406.     :boxed_column {
  407.         label = /*MSG20*/"Ñ■▒mªΓ╜L";
  408.         :image_button{
  409.             key = "hiside";
  410.             width = 40;
  411.             height = 5;
  412.         }
  413.         :image_button{
  414.             key = "loside";
  415.             width = 40;
  416.             height = 5;
  417.         }
  418.     }
  419.     :row {
  420.         fixed_width = true;
  421.         alignment = centered;
  422.         :edit12_box {
  423.             label = /*MSG21*/"├CªΓ:";
  424.             key = "color_edit";
  425.             allow_accept = true;
  426.         }
  427.         :swatch {
  428.             key = "color_image";
  429.         }
  430.     }
  431.     ok_cancel_help_errtile;
  432. }
  433.  
  434. //  The preceding are for color-selection dialogs
  435.  
  436.  
  437. //  Top and bottom sub-assemblies for the files dialogue
  438. files_topdf : column {
  439.     : edit_box {
  440.         key = "pedit";
  441.         label = /*MSG9*/"└╔«╫├■ºOP:";
  442.         mnemonic = /*MSG22*/"P";
  443.         edit_width = 35;
  444.     }
  445.     : row {
  446.         : text {
  447.             label = /*MSG10*/"Ñ╪┐²:";
  448.         }
  449.         : text {
  450.             key = "dirtext";
  451.             width = 35;
  452.         }
  453.     }
  454. }
  455.  
  456. files_bottomdf : column {
  457.     : edit_box {
  458.         key = "fedit";
  459.         label = /*MSG11*/"└╔«╫F:";
  460.         mnemonic = /*MSG23*/"F";
  461.         allow_accept = true;
  462.     }
  463.     ok_cancel_help;
  464.     errtile;
  465. }
  466.  
  467.