home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: InfoMgt / InfoMgt.zip / kim21.zip / BSP4.KIM < prev    next >
Text File  |  1994-05-01  |  2KB  |  77 lines
  1.  
  2. rem Name            :    BSP4.KIM
  3. rem Datum           :    März 1994
  4. rem Version         :    1.0
  5. rem Programm        :    Programm zur Erzeugung eines Hauptfensters mit Pulldown-Menⁿ
  6. rem Programmierer   :    EDV-Kohlenbach
  7.  
  8.  
  9. REM Zunächst das Hauptprogramm mit Event-Schleife
  10. DEFFLOAT i, taste
  11. DEFSTRING objekt
  12. CALL fenster_def ("window", 3, 2, 58, 16, "Testfenster")
  13. CALL fenster_pull ("window")
  14. WIN_PAINT "window"
  15. WHILE i<>1000
  16.   WIN_EV i
  17.   GET_ITEM_POS objekt, taste
  18.   IF taste=13 THEN
  19.       CALL auswerten (objekt, i)
  20.   ENDIF
  21. WEND
  22. END
  23.  
  24. REM Nun das Modul mit der Definition des Fensters
  25. MODUL fenster_def (char id, float x, float y, float xr, float yr, char ueber)
  26.     def_window id,x,y,xr,yr
  27.     def_system_button "system_button", 0
  28.     def_max_button "max_button"
  29.     def_min_button "min_button"
  30.     def_border "border"
  31.     def_titel "titel", ueber
  32.     add_item "window",..
  33.              "border",..
  34.              "system_button",..
  35.              "max_button",..
  36.              "min_button",..
  37.              "titel"
  38. ENDMOD
  39.  
  40. REM Nun das Modul mit der Definition des Pulldown-Menⁿs
  41. MODUL fenster_pull (char fenster_def_id)
  42.     DEF_PULLDOWN_ITEM "p1", "&Datei", 1
  43.     DEF_PULLDOWN_ITEM "p2", "&Bearbeiten", 1
  44.     DEF_PULLDOWN_ITEM "p3", "&Hilfe", 0
  45.     DEF_POPUP_ITEM "a1","&Neu"
  46.     DEF_POPUP_ITEM "a2","&Speichern"
  47.     DEF_POPUP_ITEM "a3","B&eenden "
  48.     DEF_POPUP_ITEM "b1","&Loeschen"
  49.     DEF_POPUP_ITEM "b2","Su&chen "
  50.     ADD_ITEM "p1",..
  51.              "a1",..
  52.              "a2",..
  53.              "a3"
  54.     ADD_ITEM "p2",..
  55.              "b1",..
  56.              "b2"
  57.     DEF_PULLDOWN_MENU "menu", 1; "border"
  58.     ADD_ITEM "menu",..
  59.              "p1",..
  60.              "p2",..
  61.              "p3"
  62.     ADD_ITEM fenster_def_id, "menu"
  63. ENDMOD
  64.  
  65. REM Nun das Modul, welches die Aktion des Anwenders auswertet
  66. MODUL auswerten (char obj, float i)
  67.     DEFFLOAT flag
  68.     IF obj="a3" THEN
  69.         MSGBOX "Programm beenden ?", 1, flag, " "
  70.         IF flag=1 THEN
  71.             i=1000
  72.         ENDIF
  73.     ENDIF
  74. ENDMOD
  75.  
  76. rem -------------------------------------- Ende des Programmes -----------------------------------------------------------
  77.