home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: InfoMgt / InfoMgt.zip / kim21.zip / BSP2.KIM < prev    next >
Text File  |  1994-05-01  |  2KB  |  50 lines
  1.  
  2. rem Name           :    BSP2.KIM
  3. rem Datum          :    März 1994
  4. rem Version        :    1.0
  5. rem Programm       :    Programm zur Erzeugung eines Hauptfensters mit Toolbar
  6. rem Programmierer  :    EDV-Kohlenbach
  7.  
  8.  
  9. REM Zunächst das Hauptprogramm
  10. CALL fenster_def ("window", 3, 2, 58, 16, "Testfenster")
  11. CALL fenster_inhalt ("window")
  12. WIN_PAINT "window"
  13. DUMMY_EVENT
  14. END
  15.  
  16. REM Nun das Modul mit der Definition des Fensters
  17. MODUL fenster_def (char id, float x, float y, float xr, float yr, char ueber)
  18.     def_window id,x,y,xr,yr
  19.     def_system_button "system_button", 0
  20.     def_max_button "max_button"
  21.     def_min_button "min_button"
  22.     def_border "border"
  23.     def_titel "titel", ueber
  24.     add_item "window",..
  25.              "border",..
  26.              "system_button",..
  27.              "max_button",..
  28.              "min_button",..
  29.              "titel"
  30. ENDMOD
  31.  
  32. REM Nun das Modul mit der Definition der Toolbar
  33. MODUL fenster_inhalt (char fenster_def_id)
  34.     def_toolbar "toolbar", 0, 0, 60, 5,;"region off"
  35.     def_button "b0", 0, 0, 10, " ", "Neu"
  36.     def_button "b1", 0, 0, 10, " ", "Speichern"
  37.     def_button "b2", 0, 0, 10, " ", "Loeschen"
  38.     def_button "b3", 0, 0, 10, " ", "Finde"
  39.     def_button "b4", 0, 0, 10, " ", "Beenden"
  40.     add_item "toolbar",..
  41.               "b0",..
  42.               "b1",..
  43.               "b2",..
  44.               "b3",..
  45.               "b4"
  46.     add_item  fenster_def_id, "toolbar"
  47. ENDMOD
  48.  
  49. rem----------------------------------- Ende des Programmes -------------------------------------------
  50.