home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 15 / AACD15.ISO / AACD / Programming / BGUI / bgui_e / sources / examples / dm.e < prev    next >
Encoding:
Text File  |  1999-08-26  |  7.8 KB  |  143 lines
  1. /*
  2. **      A small example of BGUI in Amiga E.
  3. **
  4. **      GUI stolen from the EasyGUI (dm.e) example. Sorry
  5. **      Wouter, I could not resist ;)
  6. **
  7. **      Updated on 10-Aug-96
  8. **/
  9. OPT OSVERSION=37
  10. OPT PREPROCESS
  11.  
  12. MODULE 'libraries/bgui',
  13.        'libraries/bguim',
  14.        'libraries/gadtools',
  15.        'bgui',
  16.        'bgui/bgui_image',
  17.        'tools/boopsi',
  18.        'utility/tagitem',
  19.        'intuition/classes',
  20.        'intuition/classusr',
  21.        'intuition/gadgetclass'
  22.  
  23. /*
  24. **      And were off.
  25. **/
  26. PROC main()
  27.         DEF     wd_obj, running = TRUE, rc = 0, signal
  28.  
  29.         /*
  30.         **      Open the library.
  31.         **/
  32.         IF bguibase := OpenLibrary( 'bgui.library', BGUIVERSION )
  33.                 /*
  34.                 **      Create a window object.
  35.                 **/
  36.                 wd_obj := WindowObject,
  37.                         WINDOW_Title,           'E FileManager v0.1',
  38.                         WINDOW_RMBTrap,         TRUE,
  39.                         WINDOW_AutoAspect,      TRUE,
  40.                         WINDOW_MasterGroup,
  41.                                 /*
  42.                                 **      A vertical master group.
  43.                                 **/
  44.                                 VGroupObject, Spacing( 4 ), HOffset( 4 ), VOffset( 4 ),
  45.                                         StartMember,
  46.                                                 HGroupObject, Spacing( 4 ),
  47.                                                         StartMember,
  48.                                                                 VGroupObject,
  49.                                                                         StartMember, ListviewObject, EndObject, EndMember,
  50.                                                                         StartMember, StringG( NIL, '', 200, 0 ), FixMinHeight, EndMember,
  51.                                                                 EndObject,
  52.                                                         EndMember,
  53.                                                         StartMember,
  54.                                                                 VGroupObject, Spacing( 2 ),
  55.                                                                         StartMember, Button( 'DF0:', 0 ), EndMember,
  56.                                                                         StartMember, Button( 'DF1:', 0 ), EndMember,
  57.                                                                         StartMember, Button( 'HD0:', 0 ), EndMember,
  58.                                                                         StartMember, Button( 'HD1:', 0 ), EndMember,
  59.                                                                         StartMember, Button( 'CD0:', 0 ), EndMember,
  60.                                                                         StartMember, Button( 'Ram:', 0 ), EndMember,
  61.                                                                         StartMember, Button( 'System:', 0 ), EndMember,
  62.                                                                         StartMember, Button( 'Work:', 0 ), EndMember,
  63.                                                                         StartMember, Button( 'E:', 0 ), EndMember,
  64.                                                                 EndObject, FixMinHeight, FixMinWidth,
  65.                                                         EndMember,
  66.                                                         StartMember,
  67.                                                                 VGroupObject,
  68.                                                                         StartMember, ListviewObject, EndObject, EndMember,
  69.                                                                         StartMember, StringG( NIL, '', 200, 0 ), FixMinHeight, EndMember,
  70.                                                                 EndObject,
  71.                                                         EndMember,
  72.                                                 EndObject,
  73.                                         EndMember,
  74.                                         StartMember,
  75.                                                 HGroupObject, Spacing( 2 ), EqualWidth,
  76.                                                         StartMember, Button( 'Parent', 0 ), EndMember,
  77.                                                         StartMember, Button( 'Copy', 0 ), EndMember,
  78.                                                         StartMember, Button( 'Move', 0 ), EndMember,
  79.                                                         StartMember, Button( 'Rename', 0 ), EndMember,
  80.                                                         StartMember, Button( 'Delete', 0 ), EndMember,
  81.                                                         StartMember, Button( 'MakeDir', 0 ), EndMember,
  82.                                                 EndObject, FixMinHeight,
  83.                                         EndMember,
  84.                                         StartMember,
  85.                                                 HGroupObject, Spacing( 2 ), EqualWidth,
  86.                                                         StartMember, Button( 'All', 0 ), EndMember,
  87.                                                         StartMember, Button( 'Clear', 0 ), EndMember,
  88.                                                         StartMember, Button( 'Toggle', 0 ), EndMember,
  89.                                                         StartMember, Button( 'Size', 0 ), EndMember,
  90.                                                         StartMember, Button( 'View', 0 ), EndMember,
  91.                                                         StartMember, Button( 'Config', 0 ), EndMember,
  92.                                                 EndObject, FixMinHeight,
  93.                                         EndMember,
  94.                                 EndObject,
  95.                         EndObject
  96.  
  97.                 /*
  98.                 **      Object created OK?
  99.                 **/
  100.                 IF wd_obj
  101.                         /*
  102.                         **      Open up the window.
  103.                         **/
  104.                         IF WindowOpen( wd_obj )
  105.                                 /*
  106.                                 **      Obtain signal mask.
  107.                                 **/
  108.                                 GetAttr( WINDOW_SigMask, wd_obj, {signal} )
  109.                                 /*
  110.                                 **      Poll messages.
  111.                                 **/
  112.                                 WHILE running = TRUE
  113.                                         /*
  114.                                         **      Wait for the signal.
  115.                                         **/
  116.                                         Wait( signal )
  117.                                         /*
  118.                                         **      Call uppon the event handler.
  119.                                         **/
  120.                                         WHILE ( rc := HandleEvent( wd_obj )) <> WMHI_NOMORE
  121.                                                 SELECT rc
  122.                                                         CASE    WMHI_CLOSEWINDOW
  123.                                                                 running := FALSE
  124.                                                 ENDSELECT
  125.                                         ENDWHILE
  126.                                 ENDWHILE
  127.                         ENDIF
  128.                         /*
  129.                         **      Disposing of the object
  130.                         **      will automatically close the window
  131.                         **      and dispose of all objects that
  132.                         **      are attached to the window.
  133.                         **/
  134.                         DisposeObject( wd_obj )
  135.                 ELSE
  136.                         WriteF( 'Unable to create a window object\n' )
  137.                 ENDIF
  138.                 CloseLibrary(bguibase)
  139.         ELSE
  140.                 WriteF( 'Unable to open the bgui.library\n' )
  141.         ENDIF
  142. ENDPROC NIL
  143.