home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: InfoMgt / InfoMgt.zip / kim21.zip / E3.KIM < prev    next >
Text File  |  1994-08-31  |  2KB  |  73 lines
  1.        DEFFLOAT _i
  2.         CALL fenster()
  3.         WIN_PAINT "window"
  4.         WHILE _i<>1000
  5.                 WIN_EV _i
  6.         WEND
  7.         END
  8.  
  9.         REM Nun das Modul mit der Definition des Fensters
  10.         MODUL fenster()
  11.  
  12.                 def_window_st "window",1,1,50,10,"Testfenster"
  13.                 DEF_PULLDOWN_ITEM "p1", "&Datei", 1
  14.                 DEF_PULLDOWN_ITEM "p2", "&Bearbeiten", 1
  15.                 DEF_PULLDOWN_ITEM "p3", "&Hilfe", 1
  16.                 DEF_PULLDOWN_ITEM "p4", "Info", 0
  17.                 DEF_PULLDOWN_ITEM "p31","Index",1
  18.  
  19.                 DEF_POPUP_ITEM "a1","&Neu"
  20.                 DEF_POPUP_ITEM "a2","&Speichern"
  21.                 DEF_POPUP_ITEM "a3","B&eenden "
  22.               
  23.                 DEF_POPUP_ITEM "b1","&Loeschen"
  24.                 DEF_POPUP_ITEM "b2","Su&chen "
  25.  
  26.                 DEF_POPUP_ITEM "c1","&Grundbegriffe"
  27.                 DEF_POPUP_ITEM "c2","&Allgemeines"
  28.                 DEF_POPUP_ITEM "c3","&Tasten"
  29.  
  30.  
  31.  
  32.                 ADD_ITEM "p1",..
  33.                 "a1",..
  34.                 "a2",..
  35.                 "a3"
  36.  
  37.                 ADD_ITEM "p2",..
  38.                 "b1",..
  39.                 "b2"
  40.  
  41.                 ADD_ITEM "p31",..
  42.                 "c1",..
  43.                 "c2"
  44.  
  45.                 ADD_ITEM "p3",..
  46.                 "p31",..
  47.                 "c3"
  48.  
  49.                
  50.                 DEF_PULLDOWN_MENU "menu", 0; "border"
  51.  
  52.                 ADD_ITEM "menu",..
  53.                 "p1",..
  54.                 "p2",..
  55.                 "p3",..
  56.                 "p4"
  57.                 
  58.                 ADD_ITEM "window", "menu"
  59.  
  60.         ENDMOD
  61.  
  62.         rem Eventfunktion wird aufgerufen wenn Menüpunkt selektiert wird
  63.  
  64.         MODUL a3_select()
  65.                 DEFFLOAT flag
  66.                 MSGBOX "Programm beenden ?", 1, flag, " "
  67.                 IF flag=1 THEN
  68.                     _i=1000
  69.                 ENDIF
  70.         ENDMOD
  71.  
  72.  
  73.