Getoptions abort/exit/close query

[skiman]

Hi,

While testing it seems to me that the functionality op the abort/exit/close query in dcgetoptions isn't working as described in the manual.

This is what I added to my dcgetoptions:

Code: Select all

         ABORTQUERY MSG {||DC_MsgBox(,,{'ABORT ?'},"CANCEL or ESCape" ,,,.t.,1,,,,,'10.Arial.bold')} ;
	 EXITQUERY MSG {||DC_MsgBox(,,{'EXIT ?'},"OK or EXIT" ,,,.t.,1,,,,,'10.Arial.bold')} ;
         CLOSEQUERY MSG {||DC_MsgBox(,,{'Close ?'},"X or Icon left corner" ,,,.t.,1,,,,,'10.Arial.bold')} 

The CLOSE message never appears? If I click the X (upper right) I'm getting also 'EXIT'?

[rdonnay]

I will look into this.

[rdonnay]

The below program works perfectly for me:

Code: Select all

#INCLUDE "dcdialog.CH"

FUNCTION Main()

LOCAL GetList[0], GetOptions, dDate := Date()

@ 0,0 DCGET dDate

DCGETOPTIONS ;
   CLOSEQUERY MSG {||MsgBox('CLOSE'), .f.} ;
   ABORTQUERY MSG {||MsgBox('ABORT'), .f.} ;
   EXITQUERY MSG {||MsgBox('EXIT'), .f.}

DCREAD GUI FIT OPTIONS GetOptions ADDBUTTONS

RETURN nil

PROC appsys ; RETURN