home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / w_genapp_sheet.srw < prev    next >
Text File  |  1997-09-30  |  1KB  |  67 lines
  1. $PBExportHeader$w_genapp_sheet.srw
  2. $PBExportComments$Generated MDI sheet window
  3. forward
  4. global type w_genapp_sheet from window
  5. end type
  6. end forward
  7.  
  8. shared variables
  9. // User defined attributes
  10.  
  11. // Non modeled user defined attributes
  12.  
  13. end variables
  14.  
  15. global type w_genapp_sheet from window
  16. WindowType WindowType = main!
  17. string MenuName = "m_genapp_sheet"
  18. int X = 673
  19. int Y = 265
  20. int Width = 1582
  21. int Height = 1065
  22. boolean TitleBar = true
  23. string Title = "Sheet"
  24. boolean ControlMenu = true
  25. boolean MinBox = true
  26. boolean MaxBox = true
  27. boolean Resizable = true
  28. end type
  29. global w_genapp_sheet w_genapp_sheet
  30.  
  31. type variables
  32. // User defined attributes
  33.  
  34. // Association attributes
  35.  
  36. // Non modeled user defined attributes
  37.  
  38. // Control to class mappings
  39. //    w_genapp_sheet --> w_genapp_sheet
  40. end variables
  41.  
  42. on w_genapp_sheet.create
  43. if this.MenuName = "m_genapp_sheet" then this.MenuID = create m_genapp_sheet
  44. end on
  45.  
  46. on w_genapp_sheet.destroy
  47. if IsValid(MenuID) then destroy(MenuID)
  48. end on
  49.  
  50. event open;int li_Count
  51.  
  52.     /* Sheet opening - reflect sheet count in title */
  53.     li_Count = w_genapp_frame.wf_getsheetcount ()
  54.     this.Title = "Sheet:" + string (li_Count)
  55.  
  56.     /* Modify menu text for platform */
  57.     w_genapp_frame.wf_setmenutext (menuid)
  58.  
  59. end event
  60.  
  61. event close;/* Disable printing if last sheet */
  62. if w_genapp_frame.wf_getsheetcount () = 1 then
  63.     w_genapp_frame.wf_enableprint (false)
  64. end if
  65. end event
  66.  
  67.