home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / w_genapp_frame.srw < prev    next >
Text File  |  1997-09-30  |  3KB  |  143 lines
  1. $PBExportHeader$w_genapp_frame.srw
  2. $PBExportComments$Generated MDI frame window
  3. forward
  4. global type w_genapp_frame from window
  5. end type
  6. type mdi_1 from mdiclient within w_genapp_frame
  7. end type
  8. end forward
  9.  
  10. shared variables
  11. // User defined attributes
  12.  
  13. // Non modeled user defined attributes
  14.  
  15. end variables
  16.  
  17. global type w_genapp_frame from window
  18. WindowType WindowType = mdihelp!
  19. string MenuName = "m_genapp_frame"
  20. int X = 257
  21. int Y = 133
  22. int Width = 1847
  23. int Height = 1301
  24. boolean TitleBar = true
  25. string Title = "Frame"
  26. long BackColor = 276791167
  27. boolean ControlMenu = true
  28. boolean MinBox = true
  29. boolean MaxBox = true
  30. boolean Resizable = true
  31. event enableprint pbm_custom01
  32. mdi_1 mdi_1
  33. end type
  34. global w_genapp_frame w_genapp_frame
  35.  
  36. type variables
  37. // User defined attributes
  38.  
  39. // Association attributes
  40.  
  41. // Non modeled user defined attributes
  42.  
  43. // Control to class mappings
  44. //    w_genapp_frame --> w_genapp_frame
  45. end variables
  46.  
  47. forward prototypes
  48. public subroutine wf_closesheet ()
  49. public subroutine wf_setmenutext (m_genapp_frame menu_reference)
  50. public subroutine wf_enableprint (boolean enable)
  51. public function integer wf_getsheetcount ()
  52. public function integer wf_newsheet ()
  53. end prototypes
  54.  
  55. event enableprint;boolean lb_enable
  56. m_genapp_frame lm_genapp_frame
  57.  
  58.     /* Enable or disable printing */
  59.     lm_genapp_frame = menuid
  60.     if message.wordparm <> 0 then lb_enable = true
  61.     lm_genapp_frame.m_file.m_print.enabled = lb_enable
  62.  
  63. end event
  64.  
  65. public subroutine wf_closesheet ();window    lw_Sheet
  66.  
  67.     /* Close active sheet */
  68.     lw_Sheet = this.GetActiveSheet ()
  69.     if IsValid (lw_Sheet) then
  70.         Close (lw_Sheet)
  71.     end if
  72. end subroutine
  73.  
  74. public subroutine wf_setmenutext (m_genapp_frame menu_reference);Environment lenv_env
  75.  
  76.     /* Change menu "Exit" text based on platform */
  77.     GetEnvironment (lenv_env)
  78.  
  79.     if lenv_env.ostype = Windows! then
  80.         menu_reference.m_file.m_exit.text = "E&xit"
  81.     elseif lenv_env.ostype = Macintosh! then
  82.         menu_reference.m_file.m_exit.text = "Quit"
  83.     end if
  84.  
  85. end subroutine
  86.  
  87. public subroutine wf_enableprint (boolean enable);/* Enable or disable printing */
  88. if enable then
  89.     TriggerEvent ("enableprint", 1, 0)
  90. else
  91.     PostEvent ("enableprint", 0, 0)
  92. end if
  93. end subroutine
  94.  
  95. public function integer wf_getsheetcount ();int        li_Count
  96. window    lw_Sheet
  97.  
  98.     /* Return number of open sheets */
  99.     lw_Sheet = this.GetFirstSheet ()
  100.     if IsValid (lw_Sheet) then
  101.         do
  102.             li_Count += 1
  103.             lw_Sheet  = this.GetNextSheet (lw_Sheet)
  104.         loop while IsValid (lw_Sheet)
  105.     end if
  106.  
  107.     return li_count
  108.  
  109. end function
  110.  
  111. public function integer wf_newsheet ();w_genapp_sheet lw_Sheet
  112.  
  113.     /* Enable printing */
  114.     wf_enableprint (true)
  115.  
  116.     /* Open a new instance of a sheet */
  117.     return OpenSheet (lw_Sheet, this, 3, layered!)
  118.  
  119. end function
  120.  
  121. on w_genapp_frame.create
  122. if this.MenuName = "m_genapp_frame" then this.MenuID = create m_genapp_frame
  123. this.mdi_1=create mdi_1
  124. this.Control[]={ this.mdi_1}
  125. end on
  126.  
  127. on w_genapp_frame.destroy
  128. if IsValid(MenuID) then destroy(MenuID)
  129. destroy(this.mdi_1)
  130. end on
  131.  
  132. event open;/* Modify menu text for platform */
  133. wf_setmenutext (menuid)
  134.  
  135. /* Create the initial sheet */
  136. wf_newsheet ()
  137. end event
  138.  
  139. type mdi_1 from mdiclient within w_genapp_frame
  140. long BackColor = 276791167
  141. end type
  142.  
  143.