home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 22 / AACD 22.iso / CDTools / MUIRexx / demos / DragnDrop.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1997-03-19  |  3.5 KB  |  93 lines
  1. /* Application created by MUIBuild */
  2.  
  3. address DragnDrop
  4.  
  5. MUIA_Cycle_Active = 0x80421788
  6. MUIA_Dropable = 0x8042fbce
  7. MUIA_List_DragSortable = 0x80426099
  8. MUIA_List_ShowDropMarks = 0x8042c6f3
  9. MUIA_Listview_DragType = 0x80425cd3
  10. MUIA_Listview_MultiSelect = 0x80427e08
  11. MUIV_List_Insert_Bottom = -3
  12. MUIV_List_Insert_Sorted = -2
  13. MUIV_Listview_DragType_Immediate = 1
  14. MUIV_Listview_MultiSelect_Default = 1
  15. TRUE = 1
  16. FALSE = 0
  17. MUIA_List_Quiet = 0x8042d8c7
  18.  
  19. window COMMAND """quit""" PORT DragnDrop TITLE """Drag&Drop Demo"""
  20.  group HORIZ
  21.   group
  22.    label CENTER "Available Fields\n(alpha sorted)"
  23.    list ID LST1,
  24.     ATTRS MUIA_Listview_DragType MUIV_Listview_DragType_Immediate,
  25.           MUIA_List_ShowDropMarks FALSE
  26.   endgroup
  27.   group
  28.    label CENTER "Visible Fields\n(sortable)"
  29.    list ID LST2,
  30.     ATTRS MUIA_Listview_DragType MUIV_Listview_DragType_Immediate,
  31.           MUIA_List_DragSortable TRUE
  32.   endgroup
  33.  endgroup
  34.  group HORIZ
  35.   group
  36.    text LABEL "\033cListview without\nmultiple selection."
  37.    list ID LST3,
  38.     ATTRS MUIA_Listview_DragType MUIV_Listview_DragType_Immediate,
  39.           MUIA_List_DragSortable TRUE,
  40.           MUIA_Dropable TRUE
  41.   endgroup
  42.   group
  43.    text LABEL "\033cListview with\nmultiple selection."
  44.    list ID LST4,
  45.     ATTRS MUIA_Listview_DragType MUIV_Listview_DragType_Immediate,
  46.           MUIA_List_DragSortable TRUE,
  47.           MUIA_Listview_MultiSelect MUIV_Listview_MultiSelect_Default,
  48.           MUIA_Dropable TRUE
  49.   endgroup
  50.  endgroup
  51. endwindow
  52. callhook ID LST1 PORT INLINE INCLUDE "LST2" DROP,
  53.      COMMAND """options results; 
  54.                 address DragnDrop; 
  55.                 line = '%s'; 
  56.                 'list ID LST1 INSERT POS "MUIV_List_Insert_Sorted" STRING' line; 
  57.                 'list ID LST2 REMOVE STRING' line;"""
  58. callhook ID LST2 PORT INLINE INCLUDE "LST1" DROP,
  59.      COMMAND """options results; 
  60.                 address DragnDrop; 
  61.                 line = '%s'; 
  62.                 'list ID LST2 INSERT STRING' line; 
  63.                 'list ID LST1 REMOVE STRING' line;"""
  64. callhook ID LST3 INCLUDE "LST3"
  65. callhook ID LST4 INCLUDE "LST4"
  66. list ID LST1 ATTRS MUIA_List_Quiet TRUE
  67. list ID LST1 POS MUIV_List_Insert_Sorted INSERT STRING "Age"
  68. list ID LST1 POS MUIV_List_Insert_Sorted INSERT STRING "Birthday"
  69. list ID LST1 POS MUIV_List_Insert_Sorted INSERT STRING "c/o"
  70. list ID LST1 POS MUIV_List_Insert_Sorted INSERT STRING "City"
  71. list ID LST1 POS MUIV_List_Insert_Sorted INSERT STRING "Comment"
  72. list ID LST1 POS MUIV_List_Insert_Sorted INSERT STRING "Country"
  73. list ID LST1 POS MUIV_List_Insert_Sorted INSERT STRING "EMail"
  74. list ID LST1 POS MUIV_List_Insert_Sorted INSERT STRING "Fax"
  75. list ID LST1 POS MUIV_List_Insert_Sorted INSERT STRING "First name"
  76. list ID LST1 POS MUIV_List_Insert_Sorted INSERT STRING "Job"
  77. list ID LST1 POS MUIV_List_Insert_Sorted INSERT STRING "Name"
  78. list ID LST1 POS MUIV_List_Insert_Sorted INSERT STRING "Phone"
  79. list ID LST1 POS MUIV_List_Insert_Sorted INSERT STRING "Projects"
  80. list ID LST1 POS MUIV_List_Insert_Sorted INSERT STRING "Salutation"
  81. list ID LST1 POS MUIV_List_Insert_Sorted INSERT STRING "State"
  82. list ID LST1 POS MUIV_List_Insert_Sorted INSERT STRING "Street"
  83. list ID LST1 POS MUIV_List_Insert_Sorted INSERT STRING "ZIP"
  84. list ID LST3 ATTRS MUIA_List_Quiet TRUE
  85. list ID LST4 ATTRS MUIA_List_Quiet TRUE
  86. do i = 1 to 50
  87.  list ID LST3 POS MUIV_List_Insert_Bottom INSERT STRING "Line "right(i,2)
  88.  list ID LST4 POS MUIV_List_Insert_Bottom INSERT STRING "Line "right(i,2)
  89. end
  90. list ID LST1 ATTRS MUIA_List_Quiet FALSE
  91. list ID LST3 ATTRS MUIA_List_Quiet FALSE
  92. list ID LST4 ATTRS MUIA_List_Quiet FALSE
  93.