On 10/18/2007 Alfonso <alforan@...> wrote:

> ButtonControlChar was added to Popstring and Popobject classes

The attached example writes a console message when creating the PopObject.
Why?

RxMUI 42.3 (2nd edition), MUI 3.8, AmigaOS 3.9, A4000/040

Kind regards,
--
Robert A. Sisk
sisk637@...

/* $VER: DemoPopObjectMsg 1.0 (18.10.2007)
*/
App.Description='Demo'
App.Copyright ='© 2007 by Robert A. Sisk'

App.Title=word(SourceLine(1),3)
App.Base=App.Title

call AddLib 'rmh.library',0,-30
call RMH_MacroEnv 'MacroEnv','ProgDir CD'
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.ID='Main'
MainWindow.Title=App.Title
PopPort.String=string('Port')
PortListview.AutoDefault=1
PortListview.List='Ports'
Ports.Class='PortList'
PopPort.Object=xNewObj('Listview','PortListview')
PopPort.CloseFun="call set 'Port','Contents',xGet('Ports','ActiveEntry')"
say 'before creating PopObject'
MainWindow.Contents=MakeObj(,'VGroup',xNewObj('PopObject','PopPort'))
say 'after creating PopObject'
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 'PortListview','DoubleClick',1,'PopPort','Close',1

call set 'MainWindow','Open',1
if ~xGet('App','Iconified') then
if ~xGet('MainWindow','Open') then do
call MUIRequest 'App',,App.Title,'_Exit',"Can't open main window"
signal Exit
end

do forever
call NewHandle 'App','Event',BreakCSignal
if RMH_And(Event.Signals,BreakCSignal)>0 then
call Quit
interpret 'call' Event.Event
end

Quit:
Exit:
exit