How to display a modal dialogwindow from XPorted VO Code?

[stefan.ungemach]

I have a simple modal window which inherited from a DialogWIndow in VO code. The modal behaviour comes from the constructor:

CLASS KOBOptionBox_vo INHERIT DIALOGWINDOW 
        CONSTRUCTOR(oParent,uExtra)  
        LOCAL DIM aBrushes[1] AS OBJECT
        
        SELF:PreInit(oParent,uExtra)
        SUPER(oParent,ResourceID{"KOBOptionBox_vo",_GetInst()},TRUE)

Unfortunately the window opens with :Show(SHOWCENTERED), but closes immediately. Before designing a whole new user interface: Is there any simple thing I did wrong?
        ...

 

[robert]

Stefan,
Is there a postinit method for the window? Does it get called?
Maybe there is an exception. Can you add a try .. catch around the call to Show() to see if an exception occurs?

Robert

[stefan.ungemach]

Robert,

the PostInit is called. The window gets displayed as well (which I can prove both by the debugger and by commenting the last line here:

oDlg := KOBMsgOptionBox{ oWin }
oDlg:Caption := cCaption
oDlg:TextZeilen := aMsg
oDlg:ID := cDialogKennungFuerAutoAntwort
oDlg:EscapeErlaubt := FALSE
oDlg:OldStyleFontSet := aFixedFont
oDlg:BitmapNameFuerFarbe := cBitmap
oDlg:Show(SHOWCENTERED)
// oDlg:destroy()

Problem is: it's not modal. In VO, the program execution halts after the show until the window is closed. In X# execution continues immediately, the destroy() is called and the window gone.

[robert]

Stefan,
Can you send us an example so we can test it?

Robert

[stefan.ungemach]

Robert,

an example would be too complex - but the problem is solved. I didn't have an app object, thus no message loop (this worked fine for Xported server apps without any GUI). After inserting 

IF getAppObject() == NULL_OBJECT
        VOGUIClasses.Functions.__WCInitCriticalSections()
        VOGUIClasses.Functions.__InitFunctionPointer()
        VOGUIClasses.Functions.__WCRegisterCustomControl()
        VOGUIClasses.Functions.__InitClassPointer()
        VOGUIClasses.Functions.__WCRegisterMMContWindow()
        VOGUIClasses.Functions.__InitTheme()
        App{}
    ENDIF 

and 

            IF !empty( getAppObject() ) 
                getAppObject():Exec( EXECWHILEEVENT )
            ENDIF

before my test code, the modal windows (custom message boxes) appear. I hope this was the right approach