home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 5 / amigaformatcd05.iso / mui / developer / oberon / examples / simpletest.mod < prev   
Text File  |  1996-08-13  |  2KB  |  44 lines
  1. MODULE SimpleTest;
  2.  
  3. IMPORT
  4.   Dos,
  5.   e := Exec,
  6.   Mui,
  7.   ms := MuiSimple,
  8.   u := Utility,
  9.   y := SYSTEM;
  10.  
  11. VAR
  12.   CYlabel0, CYlabel1, CYlabel2, CYlabel3, WIlabel0, app : Mui.Object;
  13.   dumGroup0 : Mui.Object;
  14.  
  15. BEGIN
  16.   CYlabel0 := ms.PopButton( Mui.iHardDisk );
  17.   CYlabel1 := ms.PopButton( Mui.iHardDisk );
  18.   CYlabel2 := ms.PopButton( Mui.iHardDisk );
  19.  
  20.   dumGroup0 := ms.GroupObject( Mui.aGroupHoriz, e.LTRUE,
  21.                                Mui.aGroupChild, CYlabel0,
  22.                                Mui.aGroupChild, CYlabel1,
  23.                                Mui.aGroupChild, CYlabel2,
  24.                                u.done );
  25.  
  26.   WIlabel0 := ms.WindowObject( Mui.aWindowTitle, y.ADR( "window_title" ),
  27.                                Mui.aWindowID, 1233,
  28.                                Mui.aWindowRootObject, dumGroup0,
  29.                                u.done );
  30.  
  31.   app := ms.ApplicationObject( Mui.aApplicationAuthor, y.ADR("NONE"),
  32.                                Mui.aApplicationBase, y.ADR("NONE"),
  33.                                Mui.aApplicationTitle, y.ADR("NONE"),
  34.                                Mui.aApplicationVersion, y.ADR("$VER: NONE XX.XX (XX.XX.XX)"),
  35.                                Mui.aApplicationCopyright, y.ADR("NOBODY"),
  36.                                Mui.aApplicationDescription, y.ADR("NONE"),
  37.                                Mui.aApplicationWindow, WIlabel0,
  38.                                u.done );
  39.   ms.Set( WIlabel0, Mui.aWindowOpen, e.true );
  40.   Dos.Delay( 100 );
  41. CLOSE
  42.   Mui.DisposeObject( app );
  43. END SimpleTest.
  44.