home *** CD-ROM | disk | FTP | other *** search
/ Windows 95 v2.4 Fix / W95-v2.4fix.iso / ACADWIN / SAMPLE / DLGTEST.DCL < prev    next >
Encoding:
Text File  |  1995-02-08  |  5.4 KB  |  182 lines
  1. // Next available MSG number is    24 
  2. // MODULE_ID DLGTEST_DCL_
  3. /* Next available MSG number is  24 */
  4.  
  5. //----------------------------------------------------------------------------
  6. //
  7. //   DLGTEST.DCL   Version 1.0
  8. //
  9. //     Copyright (C) 1991, 1992, 1993, 1994 by Autodesk, Inc.
  10. //
  11. //     Permission to use, copy, modify, and distribute this software
  12. //     for any purpose and without fee is hereby granted, provided
  13. //     that the above copyright notice appears in all copies and
  14. //     that both that copyright notice and the limited warranty and
  15. //     restricted rights notice below appear in all supporting
  16. //     documentation.
  17. //
  18. //     AUTODESK PROVIDES THIS PROGRAM "AS IS" AND WITH ALL FAULTS.
  19. //     AUTODESK SPECIFICALLY DISCLAIMS ANY IMPLIED WARRANTY OF
  20. //     MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE.  AUTODESK, INC.
  21. //     DOES NOT WARRANT THAT THE OPERATION OF THE PROGRAM WILL BE
  22. //     UNINTERRUPTED OR ERROR FREE.
  23. //
  24. //     Use, duplication, or disclosure by the U.S. Government is subject to
  25. //     restrictions set forth in FAR 52.227-19 (Commercial Computer
  26. //     Software - Restricted Rights) and DFAR 252.227-7013(c)(1)(ii)
  27. //     (Rights in Technical Data and Computer Software), as applicable.
  28. //
  29. //.  
  30. //----------------------------------------------------------------------------
  31. //
  32. //  Dlgtest.dcl - For use with dlgtest.c and dlgtest.lsp
  33. //   (Test Programs for User Programmable Dialog Boxes)
  34. //
  35. //----------------------------------------------------------------------------
  36.  
  37. //dcl_settings : default_dcl_settings { audit_level = 3; }
  38.  
  39. // Display and set some of the dimensioning variables
  40. dimensions : dialog {
  41.     aspect_ratio = 0;
  42.     label = "Controles de acotaci≤n de AutoCAD";
  43.     : cluster {
  44.         : cluster {
  45.             layout = vertical;
  46.             : cluster {
  47.                 layout = vertical;
  48.                 : toggle {
  49.                     label = "Suprimir lφnea referencia 1";
  50.                     key = "dimse1";
  51.                 }
  52.                 : toggle {
  53.                     label = "Suprimir lφnea referencia 2";
  54.                     key = "dimse2";
  55.                 }
  56.                 : toggle {
  57.                     label = "Texto en horizontal interior";
  58.                     key = "dimtih";
  59.                 }
  60.                 : toggle {
  61.                     label = "Texto en horizontal exterior";
  62.                     key = "dimtoh";
  63.                 }
  64.                 : toggle {
  65.                     label = "Texto sobre lφnea de cota";
  66.                     key = "dimtad";
  67.                 }
  68.                 : toggle {
  69.                     label = "A±adir tolerancia";
  70.                     key = "dimtol";
  71.                 }
  72.                 : toggle {
  73.                     label = "Generar lφmites";
  74.                     key = "dimlim";
  75.                 }
  76.                 : toggle {
  77.                     label = "Unidades alternativas";
  78.                     key = "dimalt";
  79.                 }
  80.                 : toggle {
  81.                     label = "Acotaci≤n asociativa";
  82.                     key = "dimaso";
  83.                 }
  84.                 : toggle {
  85.                     label = "Mostrar nueva cota";
  86.                     key = "dimsho";
  87.                 }
  88.             }
  89.         }
  90.         : cluster {
  91.             layout = vertical;
  92.             : cluster {
  93.                 layout = vertical;
  94.                 : edit_box {
  95.                     label = "Tama±o flecha";
  96.                     key = "dimasz";
  97.                 }
  98.                 : edit_box {
  99.                     label = "Tama±o trazo";
  100.                     key = "dimtsz";
  101.                 }
  102.                 : edit_box {
  103.                     label = "Tama±o texto";
  104.                     key = "dimtxt";
  105.                 }
  106.                 : edit_box {
  107.                     label = "Tama±o marca centro";
  108.                     key = "dimcen";
  109.                 }
  110.                 : edit_box {
  111.                     label = "Desfasar lφnea referencia";
  112.                     key = "dimexo";
  113.                 }
  114.                 : edit_box {
  115.                     label = "Extensi≤n lφnea referencia";
  116.                     key = "dimexe";
  117.                 }
  118.                 : edit_box {
  119.                     label = "Extensi≤n lφnea de cota";
  120.                     key = "dimdle";
  121.                 }
  122.             }
  123.         }
  124.     }
  125.     ok_cancel;
  126.     errtile;
  127. }
  128.  
  129.  
  130.  
  131.  
  132.  
  133. // TestLisp DCL (Dialog Control Language)
  134. // Test Proteus/LISP
  135.  
  136. setcolor : dialog {
  137.     aspect_ratio = 0;
  138.     label = "Seleccionar color";
  139.     : cluster {
  140.         layout = vertical;
  141.         image_block;
  142.         : list_box {
  143.             key = "list_col";
  144.             allow_accept = true;
  145.         }
  146.         : edit_box {
  147.             key = "edit_col";
  148.             allow_accept = true;
  149.             label = "C≤digo color";
  150.             edit_width = 10;
  151.             fixed_width = true;
  152.         }
  153.     }
  154.     ok_cancel_help;
  155.     errtile;
  156. }
  157.  
  158.  
  159. chgtext : dialog {
  160.     aspect_ratio = 0;
  161.     label = "Cambiar texto";
  162.     initial_focus = "old_str";
  163.     : edit_box {
  164.         key = "old_str";
  165.         label = "Antiguo texto:";
  166.         edit_width = 30;
  167.         fixed_width = true;
  168.         width = 45;
  169.     }
  170.     : edit_box {
  171.         key = "new_str";
  172.         allow_accept = true;
  173.         label = "Nuevo texto  :";
  174.         edit_width = 30;
  175.         fixed_width = true;
  176.         width = 45;
  177.     }
  178.     ok_cancel;
  179.     errtile;
  180. }
  181.  
  182.