els.sra

一个powerbuilder做的俄罗斯方块

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

global type els from application
string appname = "els"
boolean toolbarusercontrol = false
string displayname = "俄罗斯方块"
end type
global els els

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

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

event open;Open(w_main)
Return

end event