From b80c6ad53b2fd798c0613155d2e17d2ee53c4ef6 Mon Sep 17 00:00:00 2001 From: Pritpal Bedi Date: Sat, 10 Apr 2010 19:09:02 +0000 Subject: [PATCH] 2010-04-10 12:04 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com) * contrib/hbxbp/xbpdialog.prg + Added :sysMenu instance variable picked from Shum's example. --- harbour/ChangeLog | 4 ++++ harbour/contrib/hbxbp/xbpdialog.prg | 2 ++ 2 files changed, 6 insertions(+) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index e4adf344a3..847d68eb2b 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -17,6 +17,10 @@ past entries belonging to author(s): Viktor Szakats. */ +2010-04-10 12:04 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com) + * contrib/hbxbp/xbpdialog.prg + + Added :sysMenu instance variable picked from Shum's example. + 2010-04-10 19:58 UTC+0200 Viktor Szakats (harbour.01 syenar.hu) * contrib/hbide/ideobject.prg * contrib/hbide/idefunctions.prg diff --git a/harbour/contrib/hbxbp/xbpdialog.prg b/harbour/contrib/hbxbp/xbpdialog.prg index 4301843916..b964882fa3 100644 --- a/harbour/contrib/hbxbp/xbpdialog.prg +++ b/harbour/contrib/hbxbp/xbpdialog.prg @@ -91,6 +91,8 @@ CLASS XbpDialog FROM XbpWindow DATA titleBar INIT .F. DATA moveWithOwner INIT .T. DATA origin INIT XBPDLG_ORIGIN_OWNER + DATA sysMenu INIT .T. + METHOD new( oParent, oOwner, aPos, aSize, aPresParams, lVisible ) METHOD create( oParent, oOwner, aPos, aSize, aPresParams, lVisible )