Local Window:TGadget = createWindow("Test", 0, 0, 600, 600)


      
Local OutlookControl:TOutlookControl = TOutlookControl.create(0, 0, 170, ClientHeight(Window) , Window)
Local Item1:TOutlookItem = TOutlookItem.create(LoadPixmap("Icons/laptop_pcmcia.png"), "PC Information", Outlookcontrol)
Local Item2:TOutlookItem = TOutlookItem.create(LoadPixmap("Icons/terminal.png"), "Terminal", Outlookcontrol)
Local Item3:TOutlookItem = TOutlookItem.create(LoadPixmap("Icons/thunderbird.png"), "Thunderbird", Outlookcontrol)
Local Item4:TOutlookItem = TOutlookItem.create(LoadPixmap("Icons/XChat.png"), "XChat", Outlookcontrol)

CreateTextArea(0, 0, ClientWidth(Item1.GetContainer()), ClientHeight(Item1.GetContainer()), Item1.GetContainer())


Local MenuItem1:TOutlookButton = TOutlookButton.create(LoadPixmap("Icons/terminal.png"), "TestItem1", Item3)
Local MenuItem2:TOutlookButton = TOutlookButton.create(LoadPixmap("Icons/XChat.png"), "TestItem1", Item3)


Print ClientWidth(Item1.GetContainer()) + "," + ClientHeight(Item1.GetContainer())

While WaitEvent()
   If CurrentEvent.source = Window Then
      If EventID() = EVENT_WINDOWCLOSE
         End
      End If
   End If
   
   If EVENT_GADGETACTION Then
      Select EventSource()
         Case MenuItem1
            Notify("Item 1 Activated")
         Case MenuItem2
            Notify("Item 2 Activated")
      End Select
   End If
Wend