home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: InfoMgt / InfoMgt.zip / kim21.zip / NOTE.KIM < prev    next >
Text File  |  1995-07-01  |  856b  |  42 lines
  1.  
  2.  
  3.   rem Beispiel für die Benutzung eines Notebook
  4.   rem -----------------------------------------
  5.  
  6.   call fenster_inhalt()
  7.   win_paint "master"
  8.   dummy_event
  9.   end
  10.  
  11.  
  12.   MODUL fenster_inhalt()
  13.   defstring inhalt
  14.   dim kun,1,100
  15.  
  16.   def_notebook "note"
  17.   def_window_st "master",1,1,50,12,"Testfenster"
  18.  
  19.   rem Fenster 1
  20.  
  21.   def_window "window",0,0,0,0
  22.   DEF_TITEL "titel1","Fenster 1"
  23.   add_item "window","titel1"
  24.  
  25.   rem Fenster 2
  26.  
  27.   DEF_WINDOW "window2",0,0,0,0
  28.   DEF_TITEL "titel2","Fenster 2"
  29.   add_item "window2","titel2"
  30.  
  31.   def_number "st",17,2,12,"0",""  ;"decimal 0","right","clear","border","view only"    
  32.   def_spin   "spin","st",5,2,20,1
  33.   def_string "string",2,2,20," ";"border"
  34.  
  35.   add_item "window","spin"
  36.   add_item "window2","string"
  37.  
  38.   add_item "note","window","window2"
  39.   add_item "master","note"
  40.  
  41.   ENDMOD
  42.