 category oobasiccode  site   nota  veru800 #correcciu8c3b3n delu800 thread correcciu8c3b3n delu800 thread subu800 main onu800 error goto handler dimu800 onewframe asu800 object onewtoolkit dimu800 onewwindow asu800 object dimu800 onewmenubar asu800 object onewpopmenu asu800 object onewtoolkit gettoolkit onewwindow createwindow onewtoolkit makerect 50u800 50u800 150u800 150u800 onewmenubar createmenubar onewmenubaru82eremoveitem 0u800 onewmenubaru82egetitemcount onewmenubaru82einsertitem 0u800 menu 0u800 0u800 onewpopmenu createpopmenu onewpopmenuu82einsertitem 1u800 popu800 0u800 0u800 omenulistener createunolistener menulistener_ _u800 comu800u82esunu800u82estaru82eawtu800u82exmenulistener onewpopmenuu82eaddmenulistener omenulistener onewmenubaru82esetpopupmenu 0u800 onewpopmenu onewwindowu82esetmenubar onewmenubar onewedit createctrwithprop _u800 edit onewtoolkit onewwindow makerect 0u800 0u800 150u800 onewwindowu82eoutputsizeu82eheight _u800 array multiline vscroll array true true oneweditu82esettext string... oframes stardesktopu82egetframes onewframe createnewframe onewwindow newu800 frame onewframeu82esetpropertyvalue title title addtopframe onewframe exit subu800 handler msgbox error endu800 subu800 subu800 menulistener_highlight endu800 subu800 subu800 menulistener_select evu800 select case evu800u82emenuid case 1u800 msgbox popu800 endu800 select endu800 subu800 subu800 menulistener_activate evu800 endu800 subu800 subu800 menulistener_deactivate endu800 subu800 subu800 menulistener_disposing endu800 subu800 function createmenubar asu800 object createmenubar getprocessservicemanager. _u800 createinstancewithcontext _u800 stardivu82etoolkitu82evclxmenubar getdefaultcontext endu800 function function createpopmenu asu800 object createpopmenu getprocessservicemanager. _u800 createinstancewithcontext _u800 stardivu82etoolkitu82evclxpopupmenu getdefaultcontext endu800 function function gettoolkit gettoolkit getprocessservicemanager. _u800 createinstancewithcontext _u800 comu800u82esunu800u82estaru82eawtu800u82etoolkit getdefaultcontext endu800 function subu800 addtopframe olocframe asu800 object stardesktopu82egetframes .append olocframe endu800 subu800 function createnewframe olocwindow asu800 object slocframename asu800 string asu800 object dimu800 olocnewframe asu800 object olocnewframe getprocessservicemanageru82ecreateinstance comu800u82esunu800u82estaru82eframeu82eframe with olocnewframe .initialize olocwindow .setcreator stardesktop .setname slocframename endu800 with createnewframe olocnewframe endu800 function function createwindow oloctoolkit asu800 object _u800 alocrect asu800 comu800u82esunu800u82estaru82eawtu800u82erectangle asu800 comu800u82esunu800u82estaru82eawtu800u82ewindowdescriptor dimu800 olocwindesc olocwindesc createunostruct comu800u82esunu800u82estaru82eawtu800u82ewindowdescriptor with olocwindesc .type comu800u82esunu800u82estaru82eawtu800u82ewindowclassu82etopu800 '.windowservicename window '.parentindex -1u800 .bounds alocrect endu800 with with comu800u82esunu800u82estaru82eawtu800u82ewindowattribute olocwindescu82ewindowattributes _u800 .moveable .closeable .border .show .sizeable endu800 with createwindow oloctoolkitu82ecreatewindow olocwindesc endu800 function function createctrwithprop ctrtype otoolkit owindow apossize apropnames apropvalues dimu800 octr asu800 object octrmodel asu800 object octr createunoservice comu800u82esunu800u82estaru82eawtu800u82eunocontrol & ctrtype octrmodel createunoservice comu800u82esunu800u82estaru82eawtu800u82eunocontrol & ctrtype & model octrmodelu82esetpropertyvalues apropnames apropvalues with octr .setmodel octrmodel .createpeer otoolkit owindow .setpossize apossizeu82exu800 apossizeu82eyu800 apossizeu82ewidth apossizeu82eheight _u800 comu800u82esunu800u82estaru82eawtu800u82epossizeu82epossize endu800 with createctrwithprop octr 'model canu800 beu800 gotu800 from returned value endu800 function function makerect nxu800 asu800 long nyu800 asu800 long _u800 nwidth asu800 long nheight asu800 long asu800 comu800u82esunu800u82estaru82eawtu800u82erectangle dimu800 olocrect olocrect createunostruct comu800u82esunu800u82estaru82eawtu800u82erectangle with olocrect .xu800 nxu800 .yu800 nyu800 .width nwidth .height nheight endu800 with makerect olocrect endu800 function correcciu8c3b3n delu800 thread correcciu8c3b3n delu800 thread correcciu8c3b3n delu800 thread global onewframe subu800 main onu800 error goto handler dimu800 onewtoolkit dimu800 onewwindow asu800 object dimu800 onewmenubar asu800 object onewpopmenu asu800 object onewtoolkit gettoolkit onewwindow createwindow onewtoolkit makerect 50u800 50u800 150u800 150u800 otwl createunolistener topwindowlistener_ comu800u82esunu800u82estaru82eawtu800u82extopwindowlistener onewwindowu82eaddtopwindowlistener otwl ... endu800 subu800 ... subu800 topwindowlistener_windowclosing oeventobject onewframeu82eclose true endu800 subu800 subu800 topwindowlistener_windowclosed oeventobject endu800 subu800 subu800 topwindowlistener_windowminimized oeventobject endu800 subu800 subu800 topwindowlistener_windownormalized oeventobject endu800 subu800 subu800 topwindowlistener_windowactivated oeventobject endu800 subu800 subu800 topwindowlistener_windowdeactivated oeventobject endu800 subu800 subu800 topwindowlistener_disposing oeventobject endu800 subu800 