home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: InfoMgt / InfoMgt.zip / kim21.zip / E1.KIM < prev    next >
Text File  |  1994-08-31  |  975b  |  33 lines
  1.        REM Programm zur Erzeugung eines Hauptfensters mit Toolbar
  2.         REM Zunächst das Hauptprogramm
  3.         CALL fenster()
  4.         WIN_PAINT "window"
  5.         DUMMY_EVENT
  6.         END
  7.  
  8.         REM Nun das Modul mit der Definition des Fensters
  9.         MODUL fenster()
  10.  
  11.  
  12.  
  13.                 def_window_st "window",1,1,55,10,"Testfenster"
  14.  
  15.  
  16.                 def_toolbar "toolbar", 0, 0, 60, 5,;"region off"
  17.                 def_button "b0", 0, 0, 10, " ", "Neu "
  18.                 def_button "b1", 0, 0, 10, " ", "Speichern"
  19.                 def_button "b2", 0, 0, 10, " ", "Loeschen"
  20.                 def_button "b3", 0, 0, 10, " ", "Finde"
  21.                 def_button "b4", 0, 0, 10, " ", "Beenden"
  22.                 
  23.                 add_item "toolbar",..
  24.                 "b0",..
  25.                 "b1",..
  26.                 "b2",..
  27.                 "b3",..
  28.                 "b4"
  29.                
  30.                 add_item  "window", "toolbar"
  31.         ENDMOD
  32.  
  33.