home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: InfoMgt / InfoMgt.zip / kim21.zip / E2.KIM < prev    next >
Text File  |  1994-08-31  |  1KB  |  43 lines
  1.  
  2.         DEFFLOAT _i
  3.         CALL fenster()
  4.         WIN_PAINT "window"
  5.         WHILE _i<>1000
  6.                 WIN_EV _i
  7.         WEND
  8.         END
  9.  
  10.         REM Nun das Modul mit der Definition des Fensters
  11.         MODUL fenster()
  12.  
  13.                 def_window_st "window",1,1,55,10,"Testfenster"
  14.  
  15.                 def_toolbar "toolbar", 0, 0, 60, 5,;"region off"
  16.                 def_button "b0", 0, 0, 10, " ", "Neu"
  17.                 def_button "b1", 0, 0, 10, " ", "Speichern"
  18.                 def_button "b2", 0, 0, 10, " ", "Loeschen"
  19.                 def_button "b3", 0, 0, 10, " ", "Finde"
  20.                 def_button "b4", 0, 0, 10, " ", "Beenden"
  21.                 
  22.                 add_item "toolbar",..
  23.                 "b0",..
  24.                 "b1",..
  25.                 "b2",..
  26.                 "b3",..
  27.                 "b4"
  28.                
  29.                 add_item  "window", "toolbar"
  30.         ENDMOD
  31.  
  32.         rem Eventfunktion wird aufgerufen wenn BUTTON gedrückt
  33.  
  34.         MODUL b4_select()
  35.                 DEFFLOAT flag
  36.                 MSGBOX "Programm beenden ?", 1, flag, " "
  37.                 IF flag=1 THEN
  38.                     _i=1000
  39.                 ENDIF
  40.         ENDMOD
  41.  
  42.  
  43.