PBMiner

$PBExportHeader$pbeditor.sra
$PBExportComments$Generated Application Object
forward
global type pbeditor from application
end type
global transaction sqlca
global dynamicdescriptionarea sqlda
global dynamicstagingarea sqlsa
global error error
global message message
end forward

global variables
n_appobject gn_app
n_mrulist gn_mru
n_dynamicitem gn_dyn
w_main gw_frame

end variables

global type pbeditor from application
string appname = "pbeditor"
boolean toolbarusercontrol = false
end type
global pbeditor pbeditor

on pbeditor.create
appname="pbeditor"
message=create message
sqlca=create transaction
sqlda=create dynamicdescriptionarea
sqlsa=create dynamicstagingarea
error=create error
end on

on pbeditor.destroy
destroy(sqlca)
destroy(sqlda)
destroy(sqlsa)
destroy(error)
destroy(message)
end on

event open;// create the MRU List object
gn_mru = Create n_mrulist

Open(w_main)

end event

event close;If IsValid(w_find) Then
   Close(w_find)
End If
If IsValid(w_replace) Then
   Close(w_replace)
End If

end event