home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / coders / jËzyki_programowania / amigae / moremodules / mui / modules / libraries / ev31_mui.e next >
Text File  |  1977-12-31  |  42KB  |  1,010 lines
  1. OPT MODULE
  2. OPT EXPORT
  3. OPT PREPROCESS
  4.  
  5. MODULE 'exec/libraries', 'utility/hooks',
  6.        'graphics/rastport', 'graphics/text',
  7.        'intuition/intuition', 'intuition/screens', 'intuition/classes'
  8.  
  9. CONST MUI_TRUE = 1
  10. CONST MUIMASTER_VMIN = 10
  11.  
  12. OBJECT mui_command
  13.    mc_name       :PTR TO CHAR
  14.    mc_template   :PTR TO CHAR
  15.    mc_parameters :LONG
  16.    mc_hook       :PTR TO hook
  17.    mc_reserved[5]:ARRAY OF LONG
  18. ENDOBJECT
  19.  
  20. OBJECT mui_palette_entry
  21.    mpe_id    :LONG
  22.    mpe_red   :LONG
  23.    mpe_green :LONG
  24.    mpe_blue  :LONG
  25.    mpe_group :LONG
  26. ENDOBJECT
  27.  
  28. OBJECT mui_scrmodelist_entry
  29.    sme_name   :PTR TO CHAR
  30.    sme_modeid :LONG
  31. ENDOBJECT
  32.  
  33. OBJECT mui_boopsiquery
  34.    mbq_methodid   :LONG
  35.    mbq_screen     :PTR TO screen
  36.    mbq_flags      :LONG
  37.    mbq_minwidth   :LONG
  38.    mbq_minheight  :LONG
  39.    mbq_maxwidth   :LONG
  40.    mbq_maxheight  :LONG
  41.    mbq_defwidth   :LONG
  42.    mbq_defheight  :LONG
  43.    mbq_renderinfo :PTR TO mui_renderinfo
  44. ENDOBJECT
  45.  
  46. OBJECT mui_globalinfo
  47.    priv0                 :LONG
  48.    mgi_applicationobject :PTR TO LONG
  49. ENDOBJECT
  50.  
  51. OBJECT mui_notifydata
  52.    mnd_globalinfo :PTR TO mui_globalinfo
  53.    mnd_userdata   :LONG
  54.    priv1 :LONG
  55.    priv2 :LONG
  56.    priv3 :LONG
  57.    priv4 :LONG
  58.    priv5 :LONG
  59. ENDOBJECT
  60.  
  61. OBJECT mui_minmax
  62.    minwidth  :INT
  63.    minheight :INT
  64.    maxwidth  :INT
  65.    maxheight :INT
  66.    defwidth  :INT
  67.    defheight :INT
  68. ENDOBJECT
  69.  
  70. OBJECT mui_areadata
  71.    mad_renderinfo :PTR TO mui_renderinfo
  72.    priv6          :LONG
  73.    mad_font       :PTR TO textfont
  74.    mad_minmax     :mui_minmax
  75.    mad_box        :ibox
  76.    mad_addleft    :CHAR
  77.    mad_addtop     :CHAR
  78.    mad_subwidth   :CHAR
  79.    mad_subheight  :CHAR
  80.    mad_flags      :LONG
  81. ENDOBJECT
  82.  
  83. OBJECT mui_renderinfo
  84.    mri_windowobject :PTR TO LONG
  85.    mri_screen       :PTR TO screen
  86.    mri_drawinfo     :PTR TO drawinfo
  87.    mri_pens         :PTR TO INT
  88.    mri_window       :PTR TO window
  89.    mri_rastport     :PTR TO rastport
  90. ENDOBJECT
  91.  
  92. OBJECT mui_customclass
  93.    mcc_userdata      :LONG
  94.    mcc_utilitybase   :PTR TO lib
  95.    mcc_dosbase       :PTR TO lib
  96.    mcc_gfxbase       :PTR TO lib
  97.    mcc_intuitionbase :PTR TO lib
  98.    mcc_super         :PTR TO iclass
  99.    mcc_class         :PTR TO iclass
  100. ENDOBJECT
  101.  
  102. OBJECT __dummyxfc2__
  103.    mnd :mui_notifydata
  104.    mad :mui_areadata
  105. ENDOBJECT
  106.  
  107. CONST MUIO_Label        = 1
  108. CONST MUIO_Button       = 2
  109. CONST MUIO_Checkmark    = 3
  110. CONST MUIO_Cycle        = 4
  111. CONST MUIO_Radio        = 5
  112. CONST MUIO_Slider       = 6
  113. CONST MUIO_String       = 7
  114. CONST MUIO_PopButton    = 8
  115. CONST MUIO_HSpace       = 9
  116. CONST MUIO_VSpace      = 10
  117. CONST MUIO_HBar        = 11
  118. CONST MUIO_VBar        = 12
  119. CONST MUIO_MenustripNM = 13
  120. CONST MUIO_Menuitem    = 14
  121. CONST MUIO_BarTitle    = 15
  122. CONST MUIO_Label_SingleFrame = 256
  123. CONST MUIO_Label_DoubleFrame = 512
  124. CONST MUIO_Label_LeftAligned = 1024
  125. CONST MUIO_Label_Centered    = 2048
  126. CONST MC_TEMPLATE_ID = -1
  127. CONST MUI_RXERR_BADDEFINITION  = -1
  128. CONST MUI_RXERR_OUTOFMEMORY    = -2
  129. CONST MUI_RXERR_UNKNOWNCOMMAND = -3
  130. CONST MUI_RXERR_BADSYNTAX      = -4
  131. CONST MUIE_OK                  = 0
  132. CONST MUIE_OutOfMemory         = 1
  133. CONST MUIE_OutOfGfxMemory      = 2
  134. CONST MUIE_InvalidWindowObject = 3
  135. CONST MUIE_MissingLibrary      = 4
  136. CONST MUIE_NoARexx             = 5
  137. CONST MUIE_SingleTask          = 6
  138. CONST MUII_WindowBack     = 0
  139. CONST MUII_RequesterBack  = 1
  140. CONST MUII_ButtonBack     = 2
  141. CONST MUII_ListBack       = 3
  142. CONST MUII_TextBack       = 4
  143. CONST MUII_PropBack       = 5
  144. CONST MUII_PopupBack      = 6
  145. CONST MUII_SelectedBack   = 7
  146. CONST MUII_ListCursor     = 8
  147. CONST MUII_ListSelect     = 9
  148. CONST MUII_ListSelCur    = 10
  149. CONST MUII_ArrowUp       = 11
  150. CONST MUII_ArrowDown     = 12
  151. CONST MUII_ArrowLeft     = 13
  152. CONST MUII_ArrowRight    = 14
  153. CONST MUII_CheckMark     = 15
  154. CONST MUII_RadioButton   = 16
  155. CONST MUII_Cycle         = 17
  156. CONST MUII_PopUp         = 18
  157. CONST MUII_PopFile       = 19
  158. CONST MUII_PopDrawer     = 20
  159. CONST MUII_PropKnob      = 21
  160. CONST MUII_Drawer        = 22
  161. CONST MUII_HardDisk      = 23
  162. CONST MUII_Disk          = 24
  163. CONST MUII_Chip          = 25
  164. CONST MUII_Volume        = 26
  165. CONST MUII_PopUpBack     = 27
  166. CONST MUII_Network       = 28
  167. CONST MUII_Assign        = 29
  168. CONST MUII_TapePlay      = 30
  169. CONST MUII_TapePlayBack  = 31
  170. CONST MUII_TapePause     = 32
  171. CONST MUII_TapeStop      = 33
  172. CONST MUII_TapeRecord    = 34
  173. CONST MUII_GroupBack     = 35
  174. CONST MUII_SliderBack    = 36
  175. CONST MUII_SliderKnob    = 37
  176. CONST MUII_TapeUp        = 38
  177. CONST MUII_TapeDown      = 39
  178. CONST MUII_Count         = 40
  179. CONST MUII_BACKGROUND    = 128
  180. CONST MUII_SHADOW        = 129
  181. CONST MUII_SHINE         = 130
  182. CONST MUII_FILL          = 131
  183. CONST MUII_SHADOWBACK    = 132
  184. CONST MUII_SHADOWFILL    = 133
  185. CONST MUII_SHADOWSHINE   = 134
  186. CONST MUII_FILLBACK      = 135
  187. CONST MUII_FILLSHINE     = 136
  188. CONST MUII_SHINEBACK     = 137
  189. CONST MUII_FILLBACK2     = 138
  190. CONST MUII_HSHINEBACK    = 139
  191. CONST MUII_HSHADOWBACK   = 140
  192. CONST MUII_HSHINESHINE   = 141
  193. CONST MUII_HSHADOWSHADOW = 142
  194. CONST MUII_LASTPAT       = 142
  195. CONST MUIV_TriggerValue    =$49893131
  196. CONST MUIV_NotTriggerValue =$49893133
  197. CONST MUIV_EveryTime       =$49893131
  198. CONST MUIV_Notify_Self        = 1
  199. CONST MUIV_Notify_Window      = 2
  200. CONST MUIV_Notify_Application = 3
  201. CONST MUIV_Application_Save_ENV     = 0
  202. CONST MUIV_Application_Save_ENVARC  = -1
  203. CONST MUIV_Application_Load_ENV     = 0
  204. CONST MUIV_Application_Load_ENVARC  = -1
  205. CONST MUIV_Application_ReturnID_Quit = -1
  206. CONST MUIV_List_Insert_Top             = 0
  207. CONST MUIV_List_Insert_Active         = -1
  208. CONST MUIV_List_Insert_Sorted         = -2
  209. CONST MUIV_List_Insert_Bottom         = -3
  210. CONST MUIV_List_Remove_First           = 0
  211. CONST MUIV_List_Remove_Active         = -1
  212. CONST MUIV_List_Remove_Last           = -2
  213. CONST MUIV_List_Remove_Selected       = -3
  214. CONST MUIV_List_Select_Off             = 0
  215. CONST MUIV_List_Select_On              = 1
  216. CONST MUIV_List_Select_Toggle          = 2
  217. CONST MUIV_List_Select_Ask             = 3
  218. CONST MUIV_List_Jump_Top               = 0
  219. CONST MUIV_List_Jump_Active           = -1
  220. CONST MUIV_List_Jump_Bottom           = -2
  221. CONST MUIV_List_GetEntry_Active       = -1
  222. CONST MUIV_List_Select_Active         = -1
  223. CONST MUIV_List_Select_All            = -2
  224. CONST MUIV_List_Redraw_Active         = -1
  225. CONST MUIV_List_Redraw_All            = -2
  226. CONST MUIV_List_Move_Top = 0
  227. CONST MUIV_List_Move_Active = -1
  228. CONST MUIV_List_Move_Bottom = -2
  229. CONST MUIV_List_Move_Next = -3
  230. CONST MUIV_List_Move_Previous = -4
  231. CONST MUIV_List_Exchange_Top = 0
  232. CONST MUIV_List_Exchange_Active       = -1
  233. CONST MUIV_List_Exchange_Bottom = -2
  234. CONST MUIV_List_Exchange_Next = -3
  235. CONST MUIV_List_Exchange_Previous = -4
  236. CONST MUIV_List_NextSelected_Start = -1
  237. CONST MUIV_List_NextSelected_End = -1
  238. CONST MUIV_Colorpanel_GetColor_Active = -1
  239. CONST MUIV_Colorpanel_SetColor_Active = -1
  240. CONST MUIV_Palette_Entry_End = -1
  241. CONST MUIM_BoopsiQuery =$80427157
  242. CONST MBQF_HORIZ = 1
  243. CONST MBQ_MUI_MAXMAX = 10000
  244. CONST MUIM_CallHook                  =$8042b96b
  245. CONST MUIM_FindUData                 =$8042c196
  246. CONST MUIM_GetUData                  =$8042ed0c
  247. CONST MUIM_KillNotify                =$8042d240
  248. CONST MUIM_MultiSet                  =$8042d356
  249. CONST MUIM_Notify                    =$8042c9cb
  250. CONST MUIM_Set                       =$8042549a
  251. CONST MUIM_SetAsString               =$80422590
  252. CONST MUIM_SetUData                  =$8042c920
  253. CONST MUIM_WriteLong                 =$80428d86
  254. CONST MUIM_WriteString               =$80424bf4
  255. CONST MUIM_NoNotifySet               =$8042216f
  256. CONST MUIA_AppMessage                 =$80421955
  257. CONST MUIA_HelpFile                   =$80423a6e
  258. CONST MUIA_HelpLine                   =$8042a825
  259. CONST MUIA_HelpNode                   =$80420b85
  260. CONST MUIA_NoNotify                   =$804237f9
  261. CONST MUIA_Revision                   =$80427eaa
  262. CONST MUIA_UserData                   =$80420313
  263. CONST MUIA_Version                    =$80422301
  264. CONST MUIM_Family_AddHead            =$8042e200
  265. CONST MUIM_Family_AddTail            =$8042d752
  266. CONST MUIM_Family_Insert             =$80424d34
  267. CONST MUIM_Family_Remove             =$8042f8a9
  268. CONST MUIM_Family_Sort               =$80421c49
  269. CONST MUIM_Family_Transfer           =$8042c14a
  270. CONST MUIA_Family_Child               =$8042c696
  271. CONST MUIA_Menustrip_Enabled          =$8042815b
  272. CONST MUIA_Menu_Enabled               =$8042ed48
  273. CONST MUIA_Menu_Title                 =$8042a0e3
  274. CONST MUIA_Menuitem_Checked           =$8042562a
  275. CONST MUIA_Menuitem_Checkit           =$80425ace
  276. CONST MUIA_Menuitem_Enabled           =$8042ae0f
  277. CONST MUIA_Menuitem_Exclude           =$80420bc6
  278. CONST MUIA_Menuitem_Shortcut          =$80422030
  279. CONST MUIA_Menuitem_Title             =$804218be
  280. CONST MUIA_Menuitem_Toggle            =$80424d5c
  281. CONST MUIA_Menuitem_Trigger           =$80426f32
  282. CONST MUIM_Application_GetMenuCheck  =$8042c0a7
  283. CONST MUIM_Application_GetMenuState  =$8042a58f
  284. CONST MUIM_Application_Input         =$8042d0f5
  285. CONST MUIM_Application_InputBuffered =$80427e59
  286. CONST MUIM_Application_Load          =$8042f90d
  287. CONST MUIM_Application_PushMethod    =$80429ef8
  288. CONST MUIM_Application_ReturnID      =$804276ef
  289. CONST MUIM_Application_Save          =$804227ef
  290. CONST MUIM_Application_SetMenuCheck  =$8042a707
  291. CONST MUIM_Application_SetMenuState  =$80428bef
  292. CONST MUIM_Application_ShowHelp      =$80426479
  293. CONST MUIA_Application_Active         =$804260ab
  294. CONST MUIA_Application_Author         =$80424842
  295. CONST MUIA_Application_Base           =$8042e07a
  296. CONST MUIA_Application_Broker         =$8042dbce
  297. CONST MUIA_Application_BrokerHook     =$80428f4b
  298. CONST MUIA_Application_BrokerPort     =$8042e0ad
  299. CONST MUIA_Application_BrokerPri      =$8042c8d0
  300. CONST MUIA_Application_Commands       =$80428648
  301. CONST MUIA_Application_Copyright      =$8042ef4d
  302. CONST MUIA_Application_Description    =$80421fc6
  303. CONST MUIA_Application_DiskObject     =$804235cb
  304. CONST MUIA_Application_DoubleStart    =$80423bc6
  305. CONST MUIA_Application_DropObject     =$80421266
  306. CONST MUIA_Application_ForceQuit      =$804257df
  307. CONST MUIA_Application_HelpFile       =$804293f4
  308. CONST MUIA_Application_Iconified      =$8042a07f
  309. CONST MUIA_Application_Menu           =$80420e1f
  310. CONST MUIA_Application_MenuAction     =$80428961
  311. CONST MUIA_Application_MenuHelp       =$8042540b
  312. CONST MUIA_Application_Menustrip      =$804252d9
  313. CONST MUIA_Application_RexxHook       =$80427c42
  314. CONST MUIA_Application_RexxMsg        =$8042fd88
  315. CONST MUIA_Application_RexxString     =$8042d711
  316. CONST MUIA_Application_SingleTask     =$8042a2c8
  317. CONST MUIA_Application_Sleep          =$80425711
  318. CONST MUIA_Application_Title          =$804281b8
  319. CONST MUIA_Application_UseCommodities =$80425ee5
  320. CONST MUIA_Application_UseRexx        =$80422387
  321. CONST MUIA_Application_Version        =$8042b33f
  322. CONST MUIA_Application_Window         =$8042bfe0
  323. CONST MUIM_Window_GetMenuCheck       =$80420414
  324. CONST MUIM_Window_GetMenuState       =$80420d2f
  325. CONST MUIM_Window_ScreenToBack       =$8042913d
  326. CONST MUIM_Window_ScreenToFront      =$804227a4
  327. CONST MUIM_Window_SetCycleChain      =$80426510
  328. CONST MUIM_Window_SetMenuCheck       =$80422243
  329. CONST MUIM_Window_SetMenuState       =$80422b5e
  330. CONST MUIM_Window_ToBack             =$8042152e
  331. CONST MUIM_Window_ToFront            =$8042554f
  332. CONST MUIA_Window_Activate            =$80428d2f
  333. CONST MUIA_Window_ActiveObject        =$80427925
  334. CONST MUIA_Window_AltHeight           =$8042cce3
  335. CONST MUIA_Window_AltLeftEdge         =$80422d65
  336. CONST MUIA_Window_AltTopEdge          =$8042e99b
  337. CONST MUIA_Window_AltWidth            =$804260f4
  338. CONST MUIA_Window_AppWindow           =$804280cf
  339. CONST MUIA_Window_Backdrop            =$8042c0bb
  340. CONST MUIA_Window_Borderless          =$80429b79
  341. CONST MUIA_Window_CloseGadget         =$8042a110
  342. CONST MUIA_Window_CloseRequest        =$8042e86e
  343. CONST MUIA_Window_DefaultObject       =$804294d7
  344. CONST MUIA_Window_DepthGadget         =$80421923
  345. CONST MUIA_Window_DragBar             =$8042045d
  346. CONST MUIA_Window_FancyDrawing        =$8042bd0e
  347. CONST MUIA_Window_Height              =$80425846
  348. CONST MUIA_Window_ID                  =$804201bd
  349. CONST MUIA_Window_InputEvent          =$804247d8
  350. CONST MUIA_Window_LeftEdge            =$80426c65
  351. CONST MUIA_Window_Menu                =$8042db94
  352. CONST MUIA_Window_MenuAction          =$80427521
  353. CONST MUIA_Window_Menustrip           =$8042855e
  354. CONST MUIA_Window_MouseObject         =$8042bf9b
  355. CONST MUIA_Window_NeedsMouseObject    =$8042372a
  356. CONST MUIA_Window_NoMenus             =$80429df5
  357. CONST MUIA_Window_Open                =$80428aa0
  358. CONST MUIA_Window_PublicScreen        =$804278e4
  359. CONST MUIA_Window_RefWindow           =$804201f4
  360. CONST MUIA_Window_RootObject          =$8042cba5
  361. CONST MUIA_Window_Screen              =$8042df4f
  362. CONST MUIA_Window_ScreenTitle         =$804234b0
  363. CONST MUIA_Window_SizeGadget          =$8042e33d
  364. CONST MUIA_Window_SizeRight           =$80424780
  365. CONST MUIA_Window_Sleep               =$8042e7db
  366. CONST MUIA_Window_Title               =$8042ad3d
  367. CONST MUIA_Window_TopEdge             =$80427c66
  368. CONST MUIA_Window_Width               =$8042dcae
  369. CONST MUIA_Window_Window              =$80426a42
  370. CONST MUIV_Window_ActiveObject_None = 0
  371. CONST MUIV_Window_ActiveObject_Next = -1
  372. CONST MUIV_Window_ActiveObject_Prev = -2
  373. CONST MUIV_Window_AltHeight_Scaled = -1000
  374. CONST MUIV_Window_AltLeftEdge_Centered = -1
  375. CONST MUIV_Window_AltLeftEdge_Moused = -2
  376. CONST MUIV_Window_AltLeftEdge_NoChange = -1000
  377. CONST MUIV_Window_AltTopEdge_Centered = -1
  378. CONST MUIV_Window_AltTopEdge_Moused = -2
  379. CONST MUIV_Window_AltTopEdge_NoChange = -1000
  380. CONST MUIV_Window_AltWidth_Scaled = -1000
  381. CONST MUIV_Window_Height_Scaled = -1000
  382. CONST MUIV_Window_Height_Default = -1001
  383. CONST MUIV_Window_LeftEdge_Centered = -1
  384. CONST MUIV_Window_LeftEdge_Moused = -2
  385. CONST MUIV_Window_Menu_NoMenu = -1
  386. CONST MUIV_Window_TopEdge_Centered = -1
  387. CONST MUIV_Window_TopEdge_Moused = -2
  388. CONST MUIV_Window_Width_Scaled = -1000
  389. CONST MUIV_Window_Width_Default = -1001
  390. CONST MUIM_AskMinMax                 =$80423874
  391. CONST MUIM_Cleanup                   =$8042d985
  392. CONST MUIM_Draw                      =$80426f3f
  393. CONST MUIM_HandleInput               =$80422a1a
  394. CONST MUIM_Hide                      =$8042f20f
  395. CONST MUIM_Setup                     =$80428354
  396. CONST MUIM_Show                      =$8042cc84
  397. CONST MUIA_ApplicationObject          =$8042d3ee
  398. CONST MUIA_Background                 =$8042545b
  399. CONST MUIA_BottomEdge                 =$8042e552
  400. CONST MUIA_ControlChar                =$8042120b
  401. CONST MUIA_Disabled                   =$80423661
  402. CONST MUIA_ExportID                   =$8042d76e
  403. CONST MUIA_FixHeight                  =$8042a92b
  404. CONST MUIA_FixHeightTxt               =$804276f2
  405. CONST MUIA_FixWidth                   =$8042a3f1
  406. CONST MUIA_FixWidthTxt                =$8042d044
  407. CONST MUIA_Font                       =$8042be50
  408. CONST MUIA_Frame                      =$8042ac64
  409. CONST MUIA_FramePhantomHoriz          =$8042ed76
  410. CONST MUIA_FrameTitle                 =$8042d1c7
  411. CONST MUIA_Height                     =$80423237
  412. CONST MUIA_HorizWeight                =$80426db9
  413. CONST MUIA_InnerBottom                =$8042f2c0
  414. CONST MUIA_InnerLeft                  =$804228f8
  415. CONST MUIA_InnerRight                 =$804297ff
  416. CONST MUIA_InnerTop                   =$80421eb6
  417. CONST MUIA_InputMode                  =$8042fb04
  418. CONST MUIA_LeftEdge                   =$8042bec6
  419. CONST MUIA_Pressed                    =$80423535
  420. CONST MUIA_RightEdge                  =$8042ba82
  421. CONST MUIA_Selected                   =$8042654b
  422. CONST MUIA_ShowMe                     =$80429ba8
  423. CONST MUIA_ShowSelState               =$8042caac
  424. CONST MUIA_Timer                      =$80426435
  425. CONST MUIA_TopEdge                    =$8042509b
  426. CONST MUIA_VertWeight                 =$804298d0
  427. CONST MUIA_Weight                     =$80421d1f
  428. CONST MUIA_Width                      =$8042b59c
  429. CONST MUIA_Window                     =$80421591
  430. CONST MUIA_WindowObject               =$8042669e
  431. CONST MUIV_Font_Inherit = 0
  432. CONST MUIV_Font_Normal = -1
  433. CONST MUIV_Font_List = -2
  434. CONST MUIV_Font_Tiny = -3
  435. CONST MUIV_Font_Fixed = -4
  436. CONST MUIV_Font_Title = -5
  437. CONST MUIV_Font_Big = -6
  438. CONST MUIV_Frame_None = 0
  439. CONST MUIV_Frame_Button = 1
  440. CONST MUIV_Frame_ImageButton = 2
  441. CONST MUIV_Frame_Text = 3
  442. CONST MUIV_Frame_String = 4
  443. CONST MUIV_Frame_ReadList = 5
  444. CONST MUIV_Frame_InputList = 6
  445. CONST MUIV_Frame_Prop = 7
  446. CONST MUIV_Frame_Gauge = 8
  447. CONST MUIV_Frame_Group = 9
  448. CONST MUIV_Frame_PopUp = 10
  449. CONST MUIV_Frame_Virtual = 11
  450. CONST MUIV_Frame_Slider = 12
  451. CONST MUIV_Frame_Count = 13
  452. CONST MUIV_InputMode_None = 0
  453. CONST MUIV_InputMode_RelVerify = 1
  454. CONST MUIV_InputMode_Immediate = 2
  455. CONST MUIV_InputMode_Toggle = 3
  456. CONST MUIA_Rectangle_HBar             =$8042c943
  457. CONST MUIA_Rectangle_VBar             =$80422204
  458. CONST MUIA_Image_FontMatch            =$8042815d
  459. CONST MUIA_Image_FontMatchHeight      =$80429f26
  460. CONST MUIA_Image_FontMatchWidth       =$804239bf
  461. CONST MUIA_Image_FreeHoriz            =$8042da84
  462. CONST MUIA_Image_FreeVert             =$8042ea28
  463. CONST MUIA_Image_OldImage             =$80424f3d
  464. CONST MUIA_Image_Spec                 =$804233d5
  465. CONST MUIA_Image_State                =$8042a3ad
  466. CONST MUIA_Bitmap_Bitmap              =$804279bd
  467. CONST MUIA_Bitmap_Height              =$80421560
  468. CONST MUIA_Bitmap_MappingTable        =$8042e23d
  469. CONST MUIA_Bitmap_SourceColors        =$80425360
  470. CONST MUIA_Bitmap_Transparent         =$80422805
  471. CONST MUIA_Bitmap_Width               =$8042eb3a
  472. CONST MUIA_Bodychunk_Body             =$8042ca67
  473. CONST MUIA_Bodychunk_Compression      =$8042de5f
  474. CONST MUIA_Bodychunk_Depth            =$8042c392
  475. CONST MUIA_Bodychunk_Masking          =$80423b0e
  476. CONST MUIA_Text_Contents              =$8042f8dc
  477. CONST MUIA_Text_HiChar                =$804218ff
  478. CONST MUIA_Text_PreParse              =$8042566d
  479. CONST MUIA_Text_SetMax                =$80424d0a
  480. CONST MUIA_Text_SetMin                =$80424e10
  481. CONST MUIA_String_Accept              =$8042e3e1
  482. CONST MUIA_String_Acknowledge         =$8042026c
  483. CONST MUIA_String_AttachedList        =$80420fd2
  484. CONST MUIA_String_BufferPos           =$80428b6c
  485. CONST MUIA_String_Contents            =$80428ffd
  486. CONST MUIA_String_DisplayPos          =$8042ccbf
  487. CONST MUIA_String_EditHook            =$80424c33
  488. CONST MUIA_String_Format              =$80427484
  489. CONST MUIA_String_Integer             =$80426e8a
  490. CONST MUIA_String_MaxLen              =$80424984
  491. CONST MUIA_String_Reject              =$8042179c
  492. CONST MUIA_String_Secret              =$80428769
  493. CONST MUIV_String_Format_Left = 0
  494. CONST MUIV_String_Format_Center = 1
  495. CONST MUIV_String_Format_Right = 2
  496. CONST MUIA_Prop_Entries               =$8042fbdb
  497. CONST MUIA_Prop_First                 =$8042d4b2
  498. CONST MUIA_Prop_Horiz                 =$8042f4f3
  499. CONST MUIA_Prop_Slider                =$80429c3a
  500. CONST MUIA_Prop_Visible               =$8042fea6
  501. CONST MUIA_Gauge_Current              =$8042f0dd
  502. CONST MUIA_Gauge_Divide               =$8042d8df
  503. CONST MUIA_Gauge_Horiz                =$804232dd
  504. CONST MUIA_Gauge_InfoText             =$8042bf15
  505. CONST MUIA_Gauge_Max                  =$8042bcdb
  506. CONST MUIA_Scale_Horiz                =$8042919a
  507. CONST MUIA_Boopsi_Class               =$80426999
  508. CONST MUIA_Boopsi_ClassID             =$8042bfa3
  509. CONST MUIA_Boopsi_MaxHeight           =$8042757f
  510. CONST MUIA_Boopsi_MaxWidth            =$8042bcb1
  511. CONST MUIA_Boopsi_MinHeight           =$80422c93
  512. CONST MUIA_Boopsi_MinWidth            =$80428fb2
  513. CONST MUIA_Boopsi_Object              =$80420178
  514. CONST MUIA_Boopsi_Remember            =$8042f4bd
  515. CONST MUIA_Boopsi_Smart               =$8042b8d7
  516. CONST MUIA_Boopsi_TagDrawInfo         =$8042bae7
  517. CONST MUIA_Boopsi_TagScreen           =$8042bc71
  518. CONST MUIA_Boopsi_TagWindow           =$8042e11d
  519. CONST MUIA_Colorfield_Blue            =$8042d3b0
  520. CONST MUIA_Colorfield_Green           =$80424466
  521. CONST MUIA_Colorfield_Pen             =$8042713a
  522. CONST MUIA_Colorfield_Red             =$804279f6
  523. CONST MUIA_Colorfield_RGB             =$8042677a
  524. CONST MUIM_List_Clear                =$8042ad89
  525. CONST MUIM_List_Exchange             =$8042468c
  526. CONST MUIM_List_GetEntry             =$804280ec
  527. CONST MUIM_List_Insert               =$80426c87
  528. CONST MUIM_List_InsertSingle         =$804254d5
  529. CONST MUIM_List_Jump                 =$8042baab
  530. CONST MUIM_List_NextSelected         =$80425f17
  531. CONST MUIM_List_Redraw               =$80427993
  532. CONST MUIM_List_Remove               =$8042647e
  533. CONST MUIM_List_Select               =$804252d8
  534. CONST MUIM_List_Sort                 =$80422275
  535. CONST MUIM_List_Move                  =$804253c2
  536. CONST MUIA_List_Active                =$8042391c
  537. CONST MUIA_List_AdjustHeight          =$8042850d
  538. CONST MUIA_List_AdjustWidth           =$8042354a
  539. CONST MUIA_List_CompareHook           =$80425c14
  540. CONST MUIA_List_ConstructHook         =$8042894f
  541. CONST MUIA_List_DestructHook          =$804297ce
  542. CONST MUIA_List_DisplayHook           =$8042b4d5
  543. CONST MUIA_List_Entries               =$80421654
  544. CONST MUIA_List_First                 =$804238d4
  545. CONST MUIA_List_Format                =$80423c0a
  546. CONST MUIA_List_MultiTestHook         =$8042c2c6
  547. CONST MUIA_List_Quiet                 =$8042d8c7
  548. CONST MUIA_List_SourceArray           =$8042c0a0
  549. CONST MUIA_List_Title                 =$80423e66
  550. CONST MUIA_List_Visible               =$8042191f
  551. CONST MUIA_List_InsertPosition        =$8042d0cd
  552. CONST MUIV_List_Active_Off = -1
  553. CONST MUIV_List_Active_Top = -2
  554. CONST MUIV_List_Active_Bottom = -3
  555. CONST MUIV_List_Active_Up = -4
  556. CONST MUIV_List_Active_Down = -5
  557. CONST MUIV_List_Active_PageUp = -6
  558. CONST MUIV_List_Active_PageDown = -7
  559. CONST MUIV_List_ConstructHook_String = -1
  560. CONST MUIV_List_CopyHook_String = -1
  561. CONST MUIV_List_CursorType_None = 0
  562. CONST MUIV_List_CursorType_Bar = 1
  563. CONST MUIV_List_CursorType_Rect = 2
  564. CONST MUIV_List_DestructHook_String = -1
  565. CONST MUIA_Floattext_Justify          =$8042dc03
  566. CONST MUIA_Floattext_SkipChars        =$80425c7d
  567. CONST MUIA_Floattext_TabSize          =$80427d17
  568. CONST MUIA_Floattext_Text             =$8042d16a
  569. CONST MUIM_Dirlist_ReRead            =$80422d71
  570. CONST MUIA_Dirlist_AcceptPattern      =$8042760a
  571. CONST MUIA_Dirlist_Directory          =$8042ea41
  572. CONST MUIA_Dirlist_DrawersOnly        =$8042b379
  573. CONST MUIA_Dirlist_FilesOnly          =$8042896a
  574. CONST MUIA_Dirlist_FilterDrawers      =$80424ad2
  575. CONST MUIA_Dirlist_FilterHook         =$8042ae19
  576. CONST MUIA_Dirlist_MultiSelDirs       =$80428653
  577. CONST MUIA_Dirlist_NumBytes           =$80429e26
  578. CONST MUIA_Dirlist_NumDrawers         =$80429cb8
  579. CONST MUIA_Dirlist_NumFiles           =$8042a6f0
  580. CONST MUIA_Dirlist_Path               =$80426176
  581. CONST MUIA_Dirlist_RejectIcons        =$80424808
  582. CONST MUIA_Dirlist_RejectPattern      =$804259c7
  583. CONST MUIA_Dirlist_SortDirs           =$8042bbb9
  584. CONST MUIA_Dirlist_SortHighLow        =$80421896
  585. CONST MUIA_Dirlist_SortType           =$804228bc
  586. CONST MUIA_Dirlist_Status             =$804240de
  587. CONST MUIV_Dirlist_SortDirs_First = 0
  588. CONST MUIV_Dirlist_SortDirs_Last = 1
  589. CONST MUIV_Dirlist_SortDirs_Mix = 2
  590. CONST MUIV_Dirlist_SortType_Name = 0
  591. CONST MUIV_Dirlist_SortType_Date = 1
  592. CONST MUIV_Dirlist_SortType_Size = 2
  593. CONST MUIV_Dirlist_Status_Invalid = 0
  594. CONST MUIV_Dirlist_Status_Reading = 1
  595. CONST MUIV_Dirlist_Status_Valid = 2
  596. CONST MUIA_Group_ActivePage           =$80424199
  597. CONST MUIA_Group_Child                =$804226e6
  598. CONST MUIA_Group_Columns              =$8042f416
  599. CONST MUIA_Group_Horiz                =$8042536b
  600. CONST MUIA_Group_HorizSpacing         =$8042c651
  601. CONST MUIA_Group_PageMode             =$80421a5f
  602. CONST MUIA_Group_Rows                 =$8042b68f
  603. CONST MUIA_Group_SameHeight           =$8042037e
  604. CONST MUIA_Group_SameSize             =$80420860
  605. CONST MUIA_Group_SameWidth            =$8042b3ec
  606. CONST MUIA_Group_Spacing              =$8042866d
  607. CONST MUIA_Group_VertSpacing          =$8042e1bf
  608. CONST MUIV_Group_ActivePage_First = 0
  609. CONST MUIV_Group_ActivePage_Last = -1
  610. CONST MUIV_Group_ActivePage_Prev = -2
  611. CONST MUIV_Group_ActivePage_Next = -3
  612. CONST MUIA_Register_Frame             =$8042349b
  613. CONST MUIA_Register_Titles            =$804297ec
  614. CONST MUIA_Virtgroup_Height           =$80423038
  615. CONST MUIA_Virtgroup_Left             =$80429371
  616. CONST MUIA_Virtgroup_Top              =$80425200
  617. CONST MUIA_Virtgroup_Width            =$80427c49
  618. CONST MUIA_Scrollgroup_Contents       =$80421261
  619. CONST MUIA_Scrollgroup_FreeHoriz      =$804292f3
  620. CONST MUIA_Scrollgroup_FreeVert       =$804224f2
  621. CONST MUIA_Listview_ClickColumn       =$8042d1b3
  622. CONST MUIA_Listview_DefClickColumn    =$8042b296
  623. CONST MUIA_Listview_DoubleClick       =$80424635
  624. CONST MUIA_Listview_Input             =$8042682d
  625. CONST MUIA_Listview_List              =$8042bcce
  626. CONST MUIA_Listview_MultiSelect       =$80427e08
  627. CONST MUIA_Listview_ScrollerPos       =$8042b1b4
  628. CONST MUIA_Listview_SelectChange      =$8042178f
  629. CONST MUIV_Listview_MultiSelect_None    = 0
  630. CONST MUIV_Listview_MultiSelect_Default = 1
  631. CONST MUIV_Listview_MultiSelect_Shifted = 2
  632. CONST MUIV_Listview_MultiSelect_Always  = 3
  633. CONST MUIV_Listview_ScrollerPos_Default = 0
  634. CONST MUIV_Listview_ScrollerPos_Left    = 1
  635. CONST MUIV_Listview_ScrollerPos_Right   = 2
  636. CONST MUIA_Radio_Active               =$80429b41
  637. CONST MUIA_Radio_Entries              =$8042b6a1
  638. CONST MUIA_Cycle_Active               =$80421788
  639. CONST MUIA_Cycle_Entries              =$80420629
  640. CONST MUIV_Cycle_Active_Next = -1
  641. CONST MUIV_Cycle_Active_Prev = -2
  642. CONST MUIA_Slider_Level               =$8042ae3a
  643. CONST MUIA_Slider_Max                 =$8042d78a
  644. CONST MUIA_Slider_Min                 =$8042e404
  645. CONST MUIA_Slider_Quiet               =$80420b26
  646. CONST MUIA_Slider_Reverse             =$8042f2a0
  647. CONST MUIA_Coloradjust_Blue           =$8042b8a3
  648. CONST MUIA_Coloradjust_Green          =$804285ab
  649. CONST MUIA_Coloradjust_ModeID         =$8042ec59
  650. CONST MUIA_Coloradjust_Red            =$80420eaa
  651. CONST MUIA_Coloradjust_RGB            =$8042f899
  652. CONST MUIA_Palette_Entries            =$8042a3d8
  653. CONST MUIA_Palette_Groupable          =$80423e67
  654. CONST MUIA_Palette_Names              =$8042c3a2
  655. CONST MUIM_Popstring_Close           =$8042dc52
  656. CONST MUIM_Popstring_Open            =$804258ba
  657. CONST MUIA_Popstring_Button           =$8042d0b9
  658. CONST MUIA_Popstring_CloseHook        =$804256bf
  659. CONST MUIA_Popstring_OpenHook         =$80429d00
  660. CONST MUIA_Popstring_String           =$804239ea
  661. CONST MUIA_Popstring_Toggle           =$80422b7a
  662. CONST MUIA_Popobject_Follow           =$80424cb5
  663. CONST MUIA_Popobject_Light            =$8042a5a3
  664. CONST MUIA_Popobject_Object           =$804293e3
  665. CONST MUIA_Popobject_ObjStrHook       =$8042db44
  666. CONST MUIA_Popobject_StrObjHook       =$8042fbe1
  667. CONST MUIA_Popobject_Volatile         =$804252ec
  668. CONST MUIA_Popobject_WindowHook       =$8042f194
  669. CONST MUIA_Poplist_Array              =$8042084c
  670. CONST MUIA_Popasl_Active              =$80421b37
  671. CONST MUIA_Popasl_StartHook           =$8042b703
  672. CONST MUIA_Popasl_StopHook            =$8042d8d2
  673. CONST MUIA_Popasl_Type                =$8042df3d
  674. CONST MUI_MAXMAX = 10000
  675. CONST MADF_DRAWOBJECT = 1
  676. CONST MADF_DRAWUPDATE = 2
  677. CONST MPEN_SHINE      = 0
  678. CONST MPEN_HALFSHINE  = 1
  679. CONST MPEN_BACKGROUND = 2
  680. CONST MPEN_HALFSHADOW = 3
  681. CONST MPEN_SHADOW     = 4
  682. CONST MPEN_TEXT       = 5
  683. CONST MPEN_FILL       = 6
  684. CONST MPEN_ACTIVEOBJ  = 7
  685. CONST MPEN_COUNT      = 8
  686. CONST MUIKEY_RELEASE    = -2
  687. CONST MUIKEY_NONE       = -1
  688. CONST MUIKEY_PRESS       = 0
  689. CONST MUIKEY_TOGGLE      = 1
  690. CONST MUIKEY_UP          = 2
  691. CONST MUIKEY_DOWN        = 3
  692. CONST MUIKEY_PAGEUP      = 4
  693. CONST MUIKEY_PAGEDOWN    = 5
  694. CONST MUIKEY_TOP         = 6
  695. CONST MUIKEY_BOTTOM      = 7
  696. CONST MUIKEY_LEFT        = 8
  697. CONST MUIKEY_RIGHT       = 9
  698. CONST MUIKEY_WORDLEFT   = 10
  699. CONST MUIKEY_WORDRIGHT  = 11
  700. CONST MUIKEY_LINESTART  = 12
  701. CONST MUIKEY_LINEEND    = 13
  702. CONST MUIKEY_GADGET_NEXT    = 14
  703. CONST MUIKEY_GADGET_PREV    = 15
  704. CONST MUIKEY_GADGET_OFF     = 16
  705. CONST MUIKEY_WINDOW_CLOSE   = 17
  706. CONST MUIKEY_WINDOW_NEXT    = 18
  707. CONST MUIKEY_WINDOW_PREV    = 19
  708. CONST MUIKEY_HELP           = 20
  709. CONST MUIKEY_POPUP          = 21
  710. CONST MUIKEY_COUNT          = 22
  711.  
  712. /**************************** MACROS *******************************/
  713.  
  714. #define MUIMASTER_NAME 'muimaster.library'
  715.  
  716. #define MUIC_Notify      'Notify.mui'
  717. #define MUIC_Family      'Family.mui'
  718. #define MUIC_Menustrip   'Menustrip.mui'
  719. #define MUIC_Menu        'Menu.mui'
  720. #define MUIC_Menuitem    'Menuitem.mui'
  721. #define MUIC_Application 'Application.mui'
  722. #define MUIC_Window      'Window.mui'
  723. #define MUIC_Area        'Area.mui'
  724. #define MUIC_Rectangle   'Rectangle.mui'
  725. #define MUIC_Image       'Image.mui'
  726. #define MUIC_Bitmap      'Bitmap.mui'
  727. #define MUIC_Bodychunk   'Bodychunk.mui'
  728. #define MUIC_Text        'Text.mui'
  729. #define MUIC_String      'String.mui'
  730. #define MUIC_Prop        'Prop.mui'
  731. #define MUIC_Gauge       'Gauge.mui'
  732. #define MUIC_Scale       'Scale.mui'
  733. #define MUIC_Boopsi      'Boopsi.mui'
  734. #define MUIC_Colorfield  'Colorfield.mui'
  735. #define MUIC_List        'List.mui'
  736. #define MUIC_Floattext   'Floattext.mui'
  737. #define MUIC_Volumelist  'Volumelist.mui'
  738. #define MUIC_Scrmodelist 'Scrmodelist.mui'
  739. #define MUIC_Dirlist     'Dirlist.mui'
  740. #define MUIC_Group       'Group.mui'
  741. #define MUIC_Register    'Register.mui'
  742. #define MUIC_Virtgroup   'Virtgroup.mui'
  743. #define MUIC_Scrollgroup 'Scrollgroup.mui'
  744. #define MUIC_Scrollbar   'Scrollbar.mui'
  745. #define MUIC_Listview    'Listview.mui'
  746. #define MUIC_Radio       'Radio.mui'
  747. #define MUIC_Cycle       'Cycle.mui'
  748. #define MUIC_Slider      'Slider.mui'
  749. #define MUIC_Coloradjust 'Coloradjust.mui'
  750. #define MUIC_Palette     'Palette.mui'
  751. #define MUIC_Colorpanel  'Colorpanel.mui'
  752. #define MUIC_Popstring   'Popstring.mui'
  753. #define MUIC_Popobject   'Popobject.mui'
  754. #define MUIC_Poplist     'Poplist.mui'
  755. #define MUIC_Popasl      'Popasl.mui'
  756.  
  757. #define MUIX_R '\er'
  758. #define MUIX_C '\ec'
  759. #define MUIX_L '\el'
  760. #define MUIX_N '\en'
  761. #define MUIX_B '\eb'
  762. #define MUIX_I '\ei'
  763. #define MUIX_U '\eu'
  764. #define MUIX_PT '\e2'
  765. #define MUIX_PH '\e8'
  766.  
  767. #define MenustripObject   Mui_NewObjectA(MUIC_Menustrip,[TAG_IGNORE,0
  768. #define MenuObject        Mui_NewObjectA(MUIC_Menu,[TAG_IGNORE,0
  769. #define MenuObjectT(name) Mui_NewObjectA(MUIC_Menu,[MUIA_Menu_Title,name
  770. #define MenuitemObject    Mui_NewObjectA(MUIC_Menuitem,[TAG_IGNORE,0
  771. #define WindowObject      Mui_NewObjectA(MUIC_Window,[TAG_IGNORE,0
  772. #define ImageObject       Mui_NewObjectA(MUIC_Image,[TAG_IGNORE,0
  773. #define BitmapObject      Mui_NewObjectA(MUIC_Bitmap,[TAG_IGNORE,0
  774. #define BodychunkObject   Mui_NewObjectA(MUIC_Bodychunk,[TAG_IGNORE,0
  775. #define NotifyObject      Mui_NewObjectA(MUIC_Notify,[TAG_IGNORE,0
  776. #define ApplicationObject Mui_NewObjectA(MUIC_Application,[TAG_IGNORE,0
  777. #define TextObject        Mui_NewObjectA(MUIC_Text,[TAG_IGNORE,0
  778. #define RectangleObject   Mui_NewObjectA(MUIC_Rectangle,[TAG_IGNORE,0
  779. #define ListObject        Mui_NewObjectA(MUIC_List,[TAG_IGNORE,0
  780. #define PropObject        Mui_NewObjectA(MUIC_Prop,[TAG_IGNORE,0
  781. #define StringObject      Mui_NewObjectA(MUIC_String,[TAG_IGNORE,0
  782. #define ScrollbarObject   Mui_NewObjectA(MUIC_Scrollbar,[TAG_IGNORE,0
  783. #define ListviewObject    Mui_NewObjectA(MUIC_Listview,[TAG_IGNORE,0
  784. #define RadioObject       Mui_NewObjectA(MUIC_Radio,[TAG_IGNORE,0
  785. #define VolumelistObject  Mui_NewObjectA(MUIC_Volumelist,[TAG_IGNORE,0
  786. #define FloattextObject   Mui_NewObjectA(MUIC_Floattext,[TAG_IGNORE,0
  787. #define DirlistObject     Mui_NewObjectA(MUIC_Dirlist,[TAG_IGNORE,0
  788. #define SliderObject      Mui_NewObjectA(MUIC_Slider,[TAG_IGNORE,0
  789. #define CycleObject       Mui_NewObjectA(MUIC_Cycle,[TAG_IGNORE,0
  790. #define GaugeObject       Mui_NewObjectA(MUIC_Gauge,[TAG_IGNORE,0
  791. #define ScaleObject       Mui_NewObjectA(MUIC_Scale,[TAG_IGNORE,0
  792. #define BoopsiObject      Mui_NewObjectA(MUIC_Boopsi,[TAG_IGNORE,0
  793. #define ColorfieldObject  Mui_NewObjectA(MUIC_Colorfield,[TAG_IGNORE,0
  794. #define ColorpanelObject  Mui_NewObjectA(MUIC_Colorpanel,[TAG_IGNORE,0
  795. #define ColoradjustObject Mui_NewObjectA(MUIC_Coloradjust,[TAG_IGNORE,0
  796. #define PaletteObject     Mui_NewObjectA(MUIC_Palette,[TAG_IGNORE,0
  797. #define GroupObject       Mui_NewObjectA(MUIC_Group,[TAG_IGNORE,0
  798. #define RegisterObject    Mui_NewObjectA(MUIC_Register,[TAG_IGNORE,0
  799. #define VirtgroupObject   Mui_NewObjectA(MUIC_Virtgroup,[TAG_IGNORE,0
  800. #define ScrollgroupObject Mui_NewObjectA(MUIC_Scrollgroup,[TAG_IGNORE,0
  801. #define PopstringObject   Mui_NewObjectA(MUIC_Popstring,[TAG_IGNORE,0
  802. #define PopobjectObject   Mui_NewObjectA(MUIC_Popobject,[TAG_IGNORE,0
  803. #define PoplistObject     Mui_NewObjectA(MUIC_Poplist,[TAG_IGNORE,0
  804. #define PopaslObject      Mui_NewObjectA(MUIC_Popasl,[TAG_IGNORE,0
  805. #define ScrmodelistObject Mui_NewObjectA(MUIC_Scrmodelist,[TAG_IGNORE,0
  806. #define VGroup            Mui_NewObjectA(MUIC_Group,[TAG_IGNORE,0
  807. #define HGroup            Mui_NewObjectA(MUIC_Group,[MUIA_Group_Horiz,MUI_TRUE
  808. #define ColGroup(cols)    Mui_NewObjectA(MUIC_Group,[MUIA_Group_Columns,(cols)
  809. #define RowGroup(rows)    Mui_NewObjectA(MUIC_Group,[MUIA_Group_Rows   ,(rows)
  810. #define PageGroup         Mui_NewObjectA(MUIC_Group,[MUIA_Group_PageMode,MUI_TRUE
  811. #define VGroupV           Mui_NewObjectA(MUIC_Virtgroup,[TAG_IGNORE,0
  812. #define HGroupV           Mui_NewObjectA(MUIC_Virtgroup,[MUIA_Group_Horiz,MUI_TRUE
  813. #define ColGroupV(cols)   Mui_NewObjectA(MUIC_Virtgroup,[MUIA_Group_Columns,(cols)
  814. #define RowGroupV(rows)   Mui_NewObjectA(MUIC_Virtgroup,[MUIA_Group_Rows   ,(rows)
  815. #define PageGroupV        Mui_NewObjectA(MUIC_Virtgroup,[MUIA_Group_PageMode,MUI_TRUE
  816. #define RegisterGroup(t)  Mui_NewObjectA(MUIC_Register,[MUIA_Register_Titles,(t)
  817. #define End               TAG_DONE])
  818.  
  819. #define Child             MUIA_Group_Child
  820. #define SubWindow         MUIA_Application_Window
  821. #define WindowContents    MUIA_Window_RootObject
  822.  
  823. #define NoFrame          MUIA_Frame, MUIV_Frame_None
  824. #define ButtonFrame      MUIA_Frame, MUIV_Frame_Button
  825. #define ImageButtonFrame MUIA_Frame, MUIV_Frame_ImageButton
  826. #define TextFrame        MUIA_Frame, MUIV_Frame_Text
  827. #define StringFrame      MUIA_Frame, MUIV_Frame_String
  828. #define ReadListFrame    MUIA_Frame, MUIV_Frame_ReadList
  829. #define InputListFrame   MUIA_Frame, MUIV_Frame_InputList
  830. #define PropFrame        MUIA_Frame, MUIV_Frame_Prop
  831. #define SliderFrame      MUIA_Frame, MUIV_Frame_Slider
  832. #define GaugeFrame       MUIA_Frame, MUIV_Frame_Gauge
  833. #define VirtualFrame     MUIA_Frame, MUIV_Frame_Virtual
  834. #define GroupFrame       MUIA_Frame, MUIV_Frame_Group
  835. #define GroupFrameT(s)   MUIA_Frame, MUIV_Frame_Group, MUIA_FrameTitle, s
  836. #define HVSpace           Mui_NewObjectA(MUIC_Rectangle,[TAG_DONE])
  837. #define HSpace(x)         Mui_MakeObjectA(MUIO_HSpace,[x])
  838. #define VSpace(x)         Mui_MakeObjectA(MUIO_VSpace,[x])
  839. #define HCenter(obj)      HGroup, GroupSpacing(0), Child, HSpace(0), Child, (obj), Child, HSpace(0), End
  840. #define VCenter(obj)      VGroup, GroupSpacing(0), Child, VSpace(0), Child, (obj), Child, VSpace(0), End
  841. #define InnerSpacing(h,v) MUIA_InnerLeft,(h),MUIA_InnerRight,(h),MUIA_InnerTop,(v),MUIA_InnerBottom,(v)
  842. #define GroupSpacing(x)   MUIA_Group_Spacing,x
  843.  
  844. #define StringMUI(contents,maxlen)\
  845.         StringObject,\
  846.                 StringFrame,\
  847.                 MUIA_String_MaxLen  , maxlen,\
  848.                 MUIA_String_Contents, contents,\
  849.                 End
  850.  
  851. #define KeyString(contents,maxlen,controlchar)\
  852.         StringObject,\
  853.                 StringFrame,\
  854.                 MUIA_ControlChar    , controlchar,\
  855.                 MUIA_String_MaxLen  , maxlen,\
  856.                 MUIA_String_Contents, contents,\
  857.                 End
  858.  
  859. #define CheckMark(selected)\
  860.         ImageObject,\
  861.                 ImageButtonFrame,\
  862.                 MUIA_InputMode        , MUIV_InputMode_Toggle,\
  863.                 MUIA_Image_Spec       , MUII_CheckMark,\
  864.                 MUIA_Image_FreeVert   , MUI_TRUE,\
  865.                 MUIA_Selected         , selected,\
  866.                 MUIA_Background       , MUII_ButtonBack,\
  867.                 MUIA_ShowSelState     , FALSE,\
  868.                 End
  869.  
  870. #define KeyCheckMark(selected,control)\
  871.         ImageObject,\
  872.                 ImageButtonFrame,\
  873.                 MUIA_InputMode        , MUIV_InputMode_Toggle,\
  874.                 MUIA_Image_Spec       , MUII_CheckMark,\
  875.                 MUIA_Image_FreeVert   , MUI_TRUE,\
  876.                 MUIA_Selected         , selected,\
  877.                 MUIA_Background       , MUII_ButtonBack,\
  878.                 MUIA_ShowSelState     , FALSE,\
  879.                 MUIA_ControlChar      , control,\
  880.                 End
  881.  
  882. #define SimpleButton(label) Mui_MakeObjectA(MUIO_Button,[label])
  883.  
  884. #define KeyButton(name,key)\
  885.         TextObject,\
  886.                 ButtonFrame,\
  887.                 MUIA_Text_Contents, name,\
  888.                 MUIA_Text_PreParse, '\ec',\
  889.                 MUIA_Text_HiChar  , key,\
  890.                 MUIA_ControlChar  , key,\
  891.                 MUIA_InputMode    , MUIV_InputMode_RelVerify,\
  892.                 MUIA_Background   , MUII_ButtonBack,\
  893.                 End
  894.  
  895. #define Cycle(entries)        CycleObject, MUIA_Cycle_Entries, entries, End
  896. #define KeyCycle(entries,key) CycleObject, MUIA_Cycle_Entries, entries, MUIA_ControlChar, key, End
  897.  
  898. #define Radio(name,array)\
  899.         RadioObject,\
  900.                 GroupFrameT(name),\
  901.                 MUIA_Radio_Entries,array,\
  902.                 End
  903.  
  904. #define KeyRadio(name,array,key)\
  905.         RadioObject,\
  906.                 GroupFrameT(name),\
  907.                 MUIA_Radio_Entries,array,\
  908.                 MUIA_ControlChar, key,\
  909.                 End
  910.  
  911. #define Slider(min,max,level)\
  912.         SliderObject,\
  913.                 MUIA_Slider_Min  , min,\
  914.                 MUIA_Slider_Max  , max,\
  915.                 MUIA_Slider_Level, level,\
  916.                 End
  917.  
  918. #define KeySlider(min,max,level,key)\
  919.         SliderObject,\
  920.                 MUIA_Slider_Min  , min,\
  921.                 MUIA_Slider_Max  , max,\
  922.                 MUIA_Slider_Level, level,\
  923.                 MUIA_ControlChar , key,\
  924.                 End
  925.  
  926. #define PopButton(img) Mui_MakeObjectA(MUIO_PopButton,[img])
  927.  
  928. #define Label(label)   Mui_MakeObjectA(MUIO_Label,[label,0])
  929. #define Label1(label)  Mui_MakeObjectA(MUIO_Label,[label,MUIO_Label_SingleFrame])
  930. #define Label2(label)  Mui_MakeObjectA(MUIO_Label,[label,MUIO_Label_DoubleFrame])
  931. #define LLabel(label)  Mui_MakeObjectA(MUIO_Label,[label,MUIO_Label_LeftAligned])
  932. #define LLabel1(label) Mui_MakeObjectA(MUIO_Label,[label,MUIO_Label_LeftAligned + MUIO_Label_SingleFrame])
  933. #define LLabel2(label) Mui_MakeObjectA(MUIO_Label,[label,MUIO_Label_LeftAligned + MUIO_Label_DoubleFrame])
  934.  
  935. #define KeyLabel(label,key)   Mui_MakeObjectA(MUIO_Label,[label,key])
  936. #define KeyLabel1(label,key)  Mui_MakeObjectA(MUIO_Label,[label,Or(MUIO_Label_SingleFrame,key)])
  937. #define KeyLabel2(label,key)  Mui_MakeObjectA(MUIO_Label,[label,Or(MUIO_Label_DoubleFrame,key)])
  938. #define KeyLLabel(label,key)  Mui_MakeObjectA(MUIO_Label,[label,Or(MUIO_Label_LeftAligned,key)])
  939. #define KeyLLabel1(label,key) Mui_MakeObjectA(MUIO_Label,[label,Or(MUIO_Label_LeftAligned + MUIO_Label_SingleFrame,key)])
  940. #define KeyLLabel2(label,key) Mui_MakeObjectA(MUIO_Label,[label,Or(MUIO_Label_LeftAligned + MUIO_Label_DoubleFrame,key)])
  941.  
  942. #define get(obj,attr,store) GetAttr(attr,obj,store)
  943. #define set(obj,attr,value) SetAttrsA(obj,[Eval(`(attr)),value,TAG_DONE])
  944. #define nnset(obj,attr,value) SetAttrsA(obj,[MUIA_NoNotify,MUI_TRUE,Eval(`(attr)),value,TAG_DONE])
  945.  
  946. #define setmutex(obj,n)     set(obj,MUIA_Radio_Active,n)
  947. #define setcycle(obj,n)     set(obj,MUIA_Cycle_Active,n)
  948. #define setstring(obj,s)    set(obj,MUIA_String_Contents,s)
  949. #define setcheckmark(obj,b) set(obj,MUIA_Selected,b)
  950. #define setslider(obj,l)    set(obj,MUIA_Slider_Level,l)
  951.  
  952. #define MUIP_BoopsiQuery MUI_BoopsiQuery
  953.  
  954. #define MUIV_Window_AltHeight_MinMax(p) (0-(p))
  955. #define MUIV_Window_AltHeight_Visible(p) (-100-(p))
  956. #define MUIV_Window_AltHeight_Screen(p) (-200-(p))
  957. #define MUIV_Window_AltTopEdge_Delta(p) (-3-(p))
  958. #define MUIV_Window_AltWidth_MinMax(p) (0-(p))
  959. #define MUIV_Window_AltWidth_Visible(p) (-100-(p))
  960. #define MUIV_Window_AltWidth_Screen(p) (-200-(p))
  961. #define MUIV_Window_Height_MinMax(p) (0-(p))
  962. #define MUIV_Window_Height_Visible(p) (-100-(p))
  963. #define MUIV_Window_Height_Screen(p) (-200-(p))
  964. #define MUIV_Window_TopEdge_Delta(p) (-3-(p))
  965. #define MUIV_Window_Width_MinMax(p) (0-(p))
  966. #define MUIV_Window_Width_Visible(p) (-100-(p))
  967. #define MUIV_Window_Width_Screen(p) (-200-(p))
  968.  
  969. /*********************** ATTENTION **************************
  970.   To use the following macros, <obj> MUST be a <var> (not a
  971.   <varexp> or <exp>) and it  MUST be defined like:
  972.   
  973.   DEF obj:PTR TO <object>    or    DEF obj:<object>
  974.   
  975.   with <object> any possible OBJECT (e.g. __dummyxfc2__ )
  976.  ************************************************************/
  977.  
  978. #define muiNotifyData(obj) obj::__dummyxfc2__.mnd
  979. #define muiAreaData(obj)   obj::__dummyxfc2__.mad
  980. #define muiGlobalInfo(obj) obj::__dummyxfc2__.mnd.mnd_GlobalInfo
  981. #define muiUserData(obj)   obj::__dummyxfc2__.mnd.mnd_UserData
  982. #define muiRenderInfo(obj) obj::__dummyxfc2__.mad.mad_RenderInfo
  983.  
  984. #define _app(obj)         (muiGlobalInfo(obj).mgi_ApplicationObject)
  985. #define _win(obj)         (muiRenderInfo(obj).mri_WindowObject)
  986. #define _dri(obj)         (muiRenderInfo(obj).mri_DrawInfo)
  987. #define _window(obj)      (muiRenderInfo(obj).mri_Window)
  988. #define _screen(obj)      (muiRenderInfo(obj).mri_Screen)
  989. #define _rp(obj)          (muiRenderInfo(obj).mri_RastPort)
  990. #define _left(obj)        (muiAreaData(obj).mad_Box.Left)
  991. #define _top(obj)         (muiAreaData(obj).mad_Box.Top)
  992. #define _width(obj)       (muiAreaData(obj).mad_Box.Width)
  993. #define _height(obj)      (muiAreaData(obj).mad_Box.Height)
  994. #define _right(obj)       (_left(obj)+_width(obj)-1)
  995. #define _bottom(obj)      (_top(obj)+_height(obj)-1)
  996. #define _addleft(obj)     (muiAreaData(obj).mad_addleft)
  997. #define _addtop(obj)      (muiAreaData(obj).mad_addtop)
  998. #define _subwidth(obj)    (muiAreaData(obj).mad_subwidth)
  999. #define _subheight(obj)   (muiAreaData(obj).mad_subheight)
  1000. #define _mleft(obj)       (_left(obj)+_addleft(obj))
  1001. #define _mtop(obj)        (_top(obj)+_addtop(obj))
  1002. #define _mwidth(obj)      (_width(obj)-_subwidth(obj))
  1003. #define _mheight(obj)     (_height(obj)-_subheight(obj))
  1004. #define _mright(obj)      (_mleft(obj)+_mwidth(obj)-1)
  1005. #define _mbottom(obj)     (_mtop(obj)+_mheight(obj)-1)
  1006. #define _font(obj)        (muiAreaData(obj).mad_Font)
  1007. #define _flags(obj)       (muiAreaData(obj).mad_Flags)
  1008.  
  1009.  
  1010.