|
/* $VER: DemoStrInt 1.0 (22.2.2008)
*/
App.Description='Demo'
App.Copyright ='© 2008 by Robert A. Sisk'
App.Title=word(SourceLine(1),3)
App.Base=App.Title
call AddLib 'rmh.library',0,-30
if RMH_AddLibrary('rxmui.library')>0 then do
call RMH_EasyRequest "Can't open" result,App.Title,'Exit'
signal Exit
end
App.Author=SubWord(App.Copyright,find(App.Copyright,'by')+1)
App.SingleTask=1
App.Version=SubWord(SourceLine(1),2)
App.SubWindow='MainWindow'
MainWindow.Title=App.Title
MainWindow.Contents=HVSpace()
App.SubWindow.1='JumpWindow'
JumpWindow.Contents=MakeObj(,'VGroup',MakeObj('Number','NumericString'))
if NewObj('Application','App')>0 then
signal Exit
SigBreakB_Ctrl_C=12
BreakCSignal=2**SigBreakB_Ctrl_C
call notify 'MainWindow','CloseRequest',1,'App','ReturnID','Quit'
call notify
'MainWindow','CloseRequest',1,'App','Return','Inline',"xGet('Number','Integer')"
call set 'MainWindow','Open',1
do forever
call NewHandle 'App','Event',BreakCSignal
if RMH_And(Event.Signals,BreakCSignal)>0 then
leave
interpret 'call' Event.Event
end
Quit:
Exit:
exit
|