home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 13 / AACD13.ISO / CDTools / MUIRexx / demos / MUIRexxBuild / build.rexx < prev    next >
OS/2 REXX Batch file  |  1997-04-19  |  8KB  |  138 lines
  1. /* A MUIRexx application for building MUIRexx Applications */
  2. options results
  3.  
  4. /* Method TAG ID definitions */
  5.  
  6. List_InsertSingle = 0x804254d5 /*               { ULONG MethodID; APTR entry; LONG pos; }; */
  7. Application_OpenConfigWindow = 0x804299ba /*    { ULONG MethodID; ULONG flags; }; */
  8.  
  9. /* Attribute TAG ID definitions */
  10.  
  11. Draggable =                       0x80420b6e /* V11 isg BOOL              */
  12. Dropable =                        0x8042fbce /* V11 isg BOOL              */
  13. Group_Columns =                   0x8042f416 /* V4  is. LONG              */
  14. Listview_DragType =               0x80425cd3 /* V11 isg LONG              */
  15. Listview_MultiSelect =            0x80427e08
  16. List_DragSortable =               0x80426099 /* V11 isg BOOL              */
  17. List_ShowDropMarks =              0x8042c6f3 /* V11 isg BOOL              */
  18. Menuitem_Shortcut =               0x80422030 /* V8  isg STRPTR            */
  19. Menuitem_Title =                  0x804218be /* V8  isg STRPTR            */
  20. Weight =                          0x80421d1f /* V4  i.. WORD              */
  21.  
  22. /* TAG variable definitions */
  23.  
  24. TRUE = 1
  25. FALSE = 0
  26. Listview_DragType_Immediate = 1
  27. Listview_MultiSelect_Shifted = 2
  28. List_GetEntry_Active = -1
  29. List_Insert_Active = -1
  30. List_Insert_Bottom = -3
  31.  
  32. address command "assign build: MUIRexx:demos/MUIRexxBuild"
  33.  
  34. address BUILD
  35.  
  36. window ID BWIN TITLE """MUIRexx GUI Builder""" COMMAND """quit""" PORT BUILD
  37.     menu LABEL "Project"
  38.         item COMMAND """build:about""" ATTRS Menuitem_Shortcut 'A' LABEL "About"
  39.         item ATTRS Menuitem_Title '-1'
  40.         menu LABEL "Settings"
  41.             item COMMAND '"method 'Application_OpenConfigWindow'"' PORT BUILD LABEL "MUI..."
  42.         endmenu
  43.         item ATTRS Menuitem_Title '-1'
  44.         item COMMAND """build:comm SAVE""" ATTRS Menuitem_Shortcut 'S' LABEL "Save"
  45.         item COMMAND """build:comm SAVEAS""" ATTRS Menuitem_Shortcut 'W' LABEL "Save as..."
  46.         item COMMAND """build:comm READ""" ATTRS Menuitem_Shortcut 'R' LABEL "Read"
  47.         item ATTRS Menuitem_Title "-1"
  48.         item COMMAND """quit""" PORT BUILD ATTRS Menuitem_Shortcut 'Q' LABEL "Quit"
  49.     endmenu
  50.     group
  51.         group HORIZ
  52.             group ATTRS Weight 0
  53.                 group HORIZ
  54.                     label DOUBLE "Port:"
  55.                     string ID APRT CONTENT "TEST"
  56.                 endgroup
  57.                 group HORIZ FRAME LABEL "containers"
  58.                     button ATTRS Draggable TRUE NODE "window" LABEL "window"
  59.                     button ATTRS Draggable TRUE NODE "group" LABEL "group"
  60.                     button ATTRS Draggable TRUE NODE "menu" LABEL "menu"
  61.                     button ATTRS Draggable TRUE LABEL "do"
  62.                 endgroup
  63.                 group FRAME ATTRS Group_Columns 3 LABEL "objects"
  64.                     button ATTRS Draggable TRUE NODE "item" LABEL "item"
  65.                     button ATTRS Draggable TRUE NODE "space" LABEL "space"
  66.                     button ATTRS Draggable TRUE NODE "label" LABEL "label"
  67.                     button ATTRS Draggable TRUE NODE "view" LABEL "view"
  68.                     button ATTRS Draggable TRUE COMMAND """build:change_object %s""" NODE "gauge" LABEL "gauge"
  69.                     button ATTRS Draggable TRUE COMMAND """build:change_object %s""" NODE "meter" LABEL "meter"
  70.                     button ATTRS Draggable TRUE COMMAND """build:change_object %s""" NODE "button" LABEL "button"
  71.                     button ATTRS Draggable TRUE COMMAND """build:change_object %s""" NODE "text" LABEL "text"
  72.                     button ATTRS Draggable TRUE COMMAND """build:change_object %s""" NODE "switch" LABEL "switch"
  73.                     button ATTRS Draggable TRUE COMMAND """build:change_object %s""" NODE "image" LABEL "image"
  74.                     button ATTRS Draggable TRUE COMMAND """build:change_object %s""" NODE "check" LABEL "check"
  75.                     button ATTRS Draggable TRUE COMMAND """build:change_object %s""" NODE "cycle" LABEL "cycle"
  76.                     button ATTRS Draggable TRUE COMMAND """build:change_object %s""" NODE "radio" LABEL "radio"
  77.                     button ATTRS Draggable TRUE COMMAND """build:change_object %s""" NODE "string" LABEL "string"
  78.                     button ATTRS Draggable TRUE COMMAND """build:change_object %s""" NODE "popasl" LABEL "popasl"
  79.                     button ATTRS Draggable TRUE COMMAND """build:change_object %s""" NODE "poplist" LABEL "poplist"
  80.                     button ATTRS Draggable TRUE COMMAND """build:change_object %s""" NODE "slider" LABEL "slider"
  81.                     button ATTRS Draggable TRUE COMMAND """build:change_object %s""" NODE "popslider" LABEL "popslider"
  82.                     button ATTRS Draggable TRUE COMMAND """build:change_object %s""" NODE "knob" LABEL "knob"
  83.                     button ATTRS Draggable TRUE COMMAND """build:change_object %s""" NODE "list" LABEL "list"
  84.                     button ATTRS Draggable TRUE COMMAND """build:change_object %s""" NODE "dirlist" LABEL "dirlist"
  85.                     button ATTRS Draggable TRUE COMMAND """build:change_object %s""" NODE "volumelist" LABEL "volumelist"
  86.                     button ATTRS Draggable TRUE NODE "object" LABEL "object"
  87.                     button ATTRS Draggable TRUE LABEL
  88.                 endgroup
  89.                 group HORIZ FRAME LABEL "miscellaneous"
  90.                     button ATTRS Draggable TRUE NODE "application" LABEL "application"
  91.                     button ATTRS Draggable TRUE NODE "method" LABEL "method"
  92.                     button ATTRS Draggable TRUE NODE "callhook" LABEL "callhook"
  93.                 endgroup
  94.                 space
  95.             endgroup
  96.             group REGISTER LABELS "Commands,Variables"
  97.                 group
  98.                     list ID DLST COMMAND """build:ask_object [%s]""",
  99.                         HELP """Drag and drop an object to create.\nDouble click on object to edit.\nClick on other object to change.""",
  100.                         ATTRS Listview_DragType Listview_DragType_Immediate,
  101.                               Listview_MultiSelect Listview_MultiSelect_Shifted,
  102.                               List_DragSortable TRUE
  103.                     group HORIZ
  104.                         button COMMAND """build:comm LEFT""" LABEL "<-"
  105.                         button COMMAND """build:comm RIGHT""" LABEL "->"
  106.                         button COMMAND """build:comm COPY""" LABEL "Copy"
  107.                         button COMMAND """list ID DLST POS "List_GetEntry_Active" STRING""" PORT BUILD LABEL "Remove"
  108.                     endgroup
  109.                     group HORIZ
  110.                         button COMMAND """build:comm CREATE""" LABEL "Create"
  111.                         button COMMAND """build:comm CLOSE""" LABEL "Close"
  112.                         button COMMAND """build:comm NEW""" LABEL "New"
  113.                     endgroup
  114.                 endgroup
  115.                 group
  116.                     list ID VLST COMMAND """string ID VSTR CONTENT %s""" PORT BUILD,
  117.                         HELP """Drag and drop a variable name to define.""",
  118.                         ATTRS Listview_DragType Listview_DragType_Immediate,
  119.                               List_DragSortable TRUE
  120.                     string ID VSTR COMMAND """list ID VLST INSERT POS "List_Insert_Bottom" NODUP STRING %s""" PORT BUILD
  121.                     group HORIZ
  122.                         button COMMAND """build:attrs LIST""" LABEL "Attribute List"
  123.                         button COMMAND """build:attrs VLIST""" LABEL "Variable List"
  124.                     endgroup
  125.                     group HORIZ
  126.                         button COMMAND """list ID VLST POS "List_GetEntry_Active" STRING""" PORT BUILD LABEL "Remove"
  127.                     endgroup
  128.                 endgroup
  129.             endgroup
  130.         endgroup
  131.     endgroup
  132. endwindow
  133. callhook ID DLST DROP COMMAND """build:drop_object %s""" EXCLUDE 'BLST,CLST,MLST,ELST,OOLST,OALST,OVLST'
  134. callhook ID VLST DROP COMMAND """build:attrs VADD %s""" INCLUDE 'BLST,CLST,MLST'
  135. setvar directory 'build:test'
  136. setvar objlist
  137. exit
  138.