PBMiner

$PBExportHeader$w_sheet.srw
forward
global type w_sheet from window
end type
end forward

global type w_sheet from window
integer width = 2711
integer height = 1592
boolean titlebar = true
string title = "Untitled"
string menuname = "m_sheet"
boolean controlmenu = true
boolean minbox = true
boolean maxbox = true
boolean resizable = true
long backcolor = 67108864
string icon = "AppIcon!"
boolean center = true
event m_attachnotepad ( )
event m_attachcmd ( )
end type
global w_sheet w_sheet

type prototypes

end prototypes

type variables
n_parent in_parent

end variables

event m_attachnotepad();// Attach Notepad

If in_parent.of_Attach(this, "Notepad") Then
   this.Title = in_parent.of_GetWindowText()
End If

end event

event m_attachcmd();// Attach cmd prompt

If in_parent.of_Attach(this, "cmd") Then
   this.Title = in_parent.of_GetWindowText()
End If

end event

on w_sheet.create
if this.MenuName = "m_sheet" then this.MenuID = create m_sheet
end on

on w_sheet.destroy
if IsValid(MenuID) then destroy(MenuID)
end on

event open;gi_window = gi_window + 1

this.Title = "Sheet #" + String(gi_window)

end event

event resize;// Resize external window

in_parent.of_Resize(newwidth, newheight)

end event

event close;// Close external window

in_parent.of_Close()

end event