home *** CD-ROM | disk | FTP | other *** search
/ Computer Discount - Smash Disk / SmashDisk.bin / Cdc / Autodesk / ITALIANO / ACLT / BASE.DCL < prev    next >
Text File  |  1997-11-27  |  12KB  |  509 lines
  1. // Next available MSG number is    15 
  2. // MODULE_ID BASE_DCL_
  3. /* $Header: /sedona/develop/support/base.dcl 8     3/18/97 2:50p Duff $ */
  4. /* Next available MSG number is  24 */
  5.  
  6. //     BASE.DCL      Version 1.1
  7. //
  8. //     Copyright 1991, 1992, 1993, 1994, 1996 by Autodesk, Inc.
  9. //
  10. //     Permission to use, copy, modify, and distribute this software
  11. //     for any purpose and without fee is hereby granted, provided
  12. //     that the above copyright notice appears in all copies and
  13. //     that both that copyright notice and the limited warranty and
  14. //     restricted rights notice below appear in all supporting
  15. //     documentation.
  16. //
  17. //     AUTODESK PROVIDES THIS PROGRAM "AS IS" AND WITH ALL FAULTS.
  18. //     AUTODESK SPECIFICALLY DISCLAIMS ANY IMPLIED WARRANTY OF
  19. //     MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE.  AUTODESK, INC.
  20. //     DOES NOT WARRANT THAT THE OPERATION OF THE PROGRAM WILL BE
  21. //     UNINTERRUPTED OR ERROR FREE.
  22. //
  23. //     Use, duplication, or disclosure by the U.S. Government is subject to
  24. //     restrictions set forth in FAR 52.227-19 (Commercial Computer
  25. //     Software - Restricted Rights) and DFAR 252.227-7013(c)(1)(ii)
  26. //     (Rights in Technical Data and Computer Software), as applicable.
  27. //
  28. //.
  29. //
  30. // Define common prototypes and subassemblies for use by
  31. // ACAD.DCL and user-defined dialogs (AutoCAD), and by
  32. // ACLT.DCL (AutoCAD LT).
  33.  
  34. // (The primitive widgets are set up automatically by init_dialog.  The
  35. // equivalent DCL is shown here (commented out) for reference.)
  36.  
  37. // dialog {
  38. //      layout          = vertical;
  39. //      is_enabled      = false;
  40. // }
  41. // 
  42. // cluster {
  43. //      layout          = horizontal;
  44. // }
  45. // 
  46. // radio_cluster {
  47. //      layout          = horizontal;
  48. //      is_enabled      = true;
  49. // }
  50. // 
  51. // tile {
  52. //      layout          = horizontal;
  53. //      is_enabled      = true;
  54. // }
  55. // 
  56. // text  : tile {
  57. //      fixed_height    = true;       // inhibit vertical expansion
  58. // }
  59. // 
  60. // image : tile {
  61. // }
  62. // 
  63. // button : tile {
  64. //      fixed_height    = true;
  65. //      is_tab_stop     = true;
  66. // }
  67. // 
  68. // image_button : button {
  69. //      is_tab_stop     = true;
  70. // }
  71. // 
  72. // toggle : tile {
  73. //      fixed_height    = true;
  74. //      is_tab_stop     = true;
  75. // }
  76. // 
  77. // radio_button : tile {
  78. //      fixed_height    = true;
  79. //      is_tab_stop     = true;
  80. // }
  81. // 
  82. // list_box : tile {
  83. //      is_tab_stop     = true;
  84. //      height          = 10;
  85. //      width           = 10;
  86. // }
  87. // 
  88. // edit_box : tile {
  89. //      fixed_height    = true;
  90. //      is_tab_stop     = true;
  91. // }
  92. // 
  93. // popup_list : tile {
  94. //      is_tab_stop     = true;
  95. //      fixed_height    = true;
  96. // }
  97. // 
  98. // slider : tile {
  99. //      is_tab_stop     = true;
  100. // }
  101. // 
  102. // spacer : tile {
  103. // }
  104.  
  105. //----- Styles of clusters.
  106.  
  107. row : cluster {
  108.     horizontal_margin = none;
  109.     vertical_margin = none;
  110.     children_alignment = centered;
  111. }
  112.  
  113. column : cluster {
  114.     layout = vertical;
  115.     horizontal_margin = none;
  116.     vertical_margin = none;
  117. }
  118.  
  119. boxed_row : cluster {
  120.     label = " ";
  121.     boxed = true;
  122.     children_alignment = centered;
  123. }
  124.  
  125. boxed_column : cluster {
  126.     layout = vertical;
  127.     label = " ";
  128.     boxed = true;
  129. }
  130.  
  131. //----- Styles of radio clusters.
  132.  
  133. radio_row : radio_cluster {
  134.     horizontal_margin = none;
  135.     vertical_margin = none;
  136.     children_alignment = centered;
  137. }
  138.  
  139. radio_column : radio_cluster {
  140.     layout = vertical;
  141.     horizontal_margin = none;
  142.     vertical_margin = none;
  143. }
  144.  
  145. boxed_radio_row : radio_cluster {
  146.     label = " ";
  147.     boxed = true;
  148.     children_alignment = centered;
  149. }
  150.  
  151. boxed_radio_column : radio_cluster {
  152.     layout = vertical;
  153.     label = " ";
  154.     boxed = true;
  155. }
  156.  
  157. //----- Horizontal and vertical blocks of running text.
  158.  
  159. concatenation : cluster {
  160.     fixed_width = true;
  161.     fixed_height = true;
  162.     children_alignment = centered;
  163. }
  164.  
  165. paragraph : cluster {
  166.     layout = vertical;
  167.     fixed_height = true;
  168. }
  169.  
  170. text_part : text {
  171.     horizontal_margin = none;
  172.     vertical_margin = none;
  173. }
  174.  
  175. text_25 : text {
  176.     width = 25;
  177. }
  178.  
  179. //----- Common spacers.
  180.  
  181. spacer_0 : spacer {
  182.     height = 0;
  183.     width = 0;
  184.     horizontal_margin = none;
  185.     vertical_margin = none;
  186. }
  187.  
  188. spacer_1 : spacer {
  189.     height = 1;
  190.     width = 1;
  191.     horizontal_margin = none;
  192.     vertical_margin = none;
  193. }
  194.  
  195. //----- The normal default widget.
  196.  
  197. default_button : button {
  198.         is_default      = true;
  199. }
  200.  
  201. //----- Standard prototype for making consistent "dialog retirement buttons".
  202. //      Used below for the predefined retirement buttons, and for user-defined
  203. //      dialogs that need retirement buttons with specialized verbs.
  204.  
  205. retirement_button : button {
  206.         fixed_width     = true;
  207.         width           = 9;
  208.         alignment = centered;
  209. }
  210.  
  211. //----- Standard dialog retirement buttons.  Unless one is building a dialog
  212. //      retirement subassembly containing specialized verbs, these will 
  213. //      normally not be used directly by DCL code outside of base.dcl; use
  214. //      the pre-built subassemblies in the next section.
  215.  
  216. ok_button : retirement_button {
  217.         label           = "  OK  ";
  218.         key             = "accept";
  219.         is_default      = true;
  220. }
  221.  
  222. cancel_button : retirement_button {
  223.         label           = "Annulla";
  224.         key             = "cancel";
  225.         is_cancel       = true;
  226. }
  227.  
  228. help_button : retirement_button {
  229.         label           = "&?";
  230.         key             = "help";
  231.         is_help         = true;
  232. }
  233.  
  234. info_button : retirement_button {
  235.         label           = "&Info...";
  236.         key             = "info";
  237. }
  238.  
  239. //----- Pre-built arrays of dialog bottom-line buttons.
  240.  
  241. ok_only : column {
  242.     fixed_width = true;
  243.     alignment = centered;
  244.     : ok_button {
  245.         is_cancel = true;
  246.     }
  247. }
  248.  
  249. ok_cancel : column {
  250.     : row {
  251.         fixed_width = true;
  252.         alignment = centered;
  253.         ok_button;
  254.         : spacer { width = 2; }
  255.         cancel_button;
  256.     }
  257. }
  258.  
  259. ok_cancel_help : column {
  260.     : row {
  261.         fixed_width = true;
  262.         alignment = centered;
  263.         ok_button;
  264.         : spacer { width = 2; }
  265.         cancel_button;
  266.         : spacer { width = 2; }
  267.         help_button;
  268.     }
  269. }
  270.  
  271. ok_cancel_help_info : column {
  272.     : row {
  273.         fixed_width = true;
  274.         alignment = centered;
  275.         ok_button;
  276.         : spacer { width = 2; }
  277.         cancel_button;
  278.         : spacer { width = 2; }
  279.         help_button;
  280.         : spacer { width = 2; }
  281.         info_button;
  282.     }
  283. }
  284.  
  285. //----- Error reporting tiles.
  286.  
  287. errtile : text {
  288.         label = "";
  289.         key = "error";
  290.         width = 35;                   // must be long enough to hold error msgs
  291.         is_error_tile = true;
  292. }
  293.  
  294. // A custer consisting of OK, Cancel, and Help on one line with the error tile
  295. //    below.
  296.  
  297. ok_cancel_help_errtile : column {
  298.     ok_cancel_help;
  299.     errtile;
  300. }
  301.  
  302. // The same thing without the Help button for subdialogues that have no help
  303. //    available.
  304.  
  305. ok_cancel_err : column {
  306.     ok_cancel;
  307.     errtile;
  308. }
  309.  
  310. //----- Currently, the only dcl setting is the audit_level which controls the
  311. //  level of semantic error checking applied during a load_dialog operation.
  312. //      (0 = none, 1 = errors, 2 = warnings, 3 = hints)
  313. // See AutoCAD's README for details.
  314. default_dcl_settings : tile {
  315.     audit_level = 1;
  316. }
  317.  
  318. //----- Miscellaneous parts used by ACAD.DCL (AutoCAD) & ACLT.DCL (AutoCAD LT).
  319.  
  320. image_block : image {
  321.         key = "show_image";
  322.         height = 1;
  323.         width = 1;
  324. }
  325.  
  326. icon_image : image_button {
  327.         color                   = 0;
  328.         width                   = 12;
  329.         aspect_ratio            = 0.66;
  330.         allow_accept            = true;
  331.         fixed_height            = true;
  332.         fixed_width             = true;
  333. }
  334.  
  335. edit12_box : edit_box {
  336.         edit_width = 12;
  337.         edit_limit = 148;    // 18 * 8 (CIF/MIF size)
  338. }
  339.  
  340. edit32_box : edit_box {
  341.         edit_width = 32;
  342.         edit_limit = 2048;   // MAX_VALUE (256 * 8 (CIF/MIF size))
  343. }
  344.  
  345. //  The following are for the color-selection dialogs
  346.  
  347. swatch : image_button {
  348.     vertical_margin = none;
  349.     horizontal_margin = none;
  350.     fixed_height = true;
  351.     fixed_width = true;
  352.     height = 1.5;
  353.     width = 3;
  354.         allow_accept = true;
  355. }
  356.  
  357. color_palette_1_7 : row {             // Standard colors 1-7
  358.     : swatch { color = 001; key = "001"; }
  359.     : swatch { color = 002; key = "002"; }
  360.     : swatch { color = 003; key = "003"; }
  361.     : swatch { color = 004; key = "004"; }
  362.     : swatch { color = 005; key = "005"; }
  363.     : swatch { color = 006; key = "006"; }
  364.     : swatch { color = 007; key = "007"; }
  365. }
  366.  
  367. color_palette_1_9 : row {             // Standard colors, plus 8 and 9
  368.     color_palette_1_7;
  369.     : swatch { color = 008; key = "008"; }
  370.     : swatch { color = 009; key = "009"; }
  371. }
  372.  
  373. color_palette_0_9 : row {             // Standard colors, plus 0, 8, and 9
  374.     : swatch { color = 000; key = "000"; }
  375.     color_palette_1_9;
  376. }
  377.  
  378. color_palette_250_255 : row {         // Grey shades 250-255
  379.     : swatch { color = 250; key = "250"; }
  380.     : swatch { color = 251; key = "251"; }
  381.     : swatch { color = 252; key = "252"; }
  382.     : swatch { color = 253; key = "253"; }
  383.     : swatch { color = 254; key = "254"; }
  384.     : swatch { color = 255; key = "255"; }
  385. }
  386.  
  387. std_rq_color :column{
  388.     :column {
  389.         :boxed_row {
  390.             fixed_width = true;
  391.             label = "Colori standard";
  392.             color_palette_1_9;
  393.         }
  394.         :row {
  395.             :boxed_row {
  396.                 fixed_width = true;
  397.                 label = "Tonalitα di grigio";
  398.                 color_palette_250_255;
  399.             }
  400.             :boxed_row {
  401.                 fixed_width = true;
  402.                 label = "Colori logici";
  403.                 :button {
  404.                     label = "DA&LAYER";
  405.                     key = "256";
  406.                                 }
  407.                 :button {
  408.                     label = "DA&BLOCCO";
  409.                     key = "000";
  410.                 }
  411.             }
  412.         }
  413.     }
  414.     :boxed_column {
  415.         label = "Tavolozza completa dei colori";
  416.         :image_button{
  417.             key = "hiside";
  418.             alignment = centered;
  419.             width = 40;
  420.             height = 4;
  421.                         allow_accept = true;
  422.             is_enabled = false;
  423.         }
  424.         :image_button{
  425.             alignment = centered;
  426.             key = "loside";
  427.             width = 40;
  428.             height = 4;
  429.                         allow_accept = true;
  430.             is_enabled = false;
  431.         }
  432.     }
  433.     :row {
  434.         fixed_width = true;
  435.         alignment = centered;
  436.         children_alignment = bottom;
  437.         :edit12_box {
  438.             label = "Colore:";
  439.             key = "color_edit";
  440.             allow_accept = true;
  441.         }
  442.         :swatch {
  443.             key = "color_image";
  444.         }
  445.     }
  446.     ok_cancel_help_errtile;
  447. }
  448.  
  449. //  The preceding are for color-selection dialogs
  450.  
  451.  
  452. //  Top and bottom sub-assemblies for the files dialogue
  453. files_topdf : column {
  454.     : edit_box {
  455.         key = "pedit";
  456.         label = "&Modello:";
  457.         edit_width = 35;
  458.     }
  459.     : row {
  460.         : text {
  461.             label = "Directory:";
  462.         }
  463.         : text {
  464.             key = "dirtext";
  465.             width = 35;
  466.         }
  467.     }
  468. }
  469.  
  470. files_bottomdf : column {
  471.     : edit_box {
  472.         key = "fedit";
  473.         label = "&File:";
  474.         allow_accept = true;
  475.     }
  476.     ok_cancel;
  477.     errtile;
  478. }
  479.  
  480. fcf_ibut : image_button {
  481.     horizontal_margin = none;
  482.     width = 3.5;
  483.     height = 1.2;
  484.     color        = 0;
  485.     alignment = bottom;
  486. }
  487.  
  488. fcf_ebox : edit_box {
  489.     horizontal_margin = none;
  490.     edit_width = 7;
  491.     fixed_width = true;
  492.     alignment = bottom;
  493. }
  494.  
  495. fcf_ebox1 : edit_box {
  496.     horizontal_margin = none;
  497.     edit_width = 3;
  498.     edit_limit = 3;
  499.     fixed_width = true;
  500.     alignment = bottom;
  501. }
  502.  
  503. fcf_ibut1 : image_button {
  504.     width        = 5.0;
  505.     aspect_ratio = 0.66;
  506.     color        = 0;
  507.     allow_accept = true;
  508. }
  509.