io Programmo 10/ioProg_10.iso/soft/optima/samples.z/Form_Test.wxf

Text File | 1996-09-16 | 23.5 KB | 881 lines

Save Format v1.3
@begin Form "Form_Test"
 Exported 0;

 @begin Object "WModelessDialog"
  WSDlgBorder 1;
  WSDlgFrame 1;
  WSSysMenu 1;
  WSSystemMenu 1;
  WSMinimizeBox 1;
  WSGroup 1;
  WSVisible 1;
  Font "8.MS Sans Serif";
  StatusBar "StatusBarAtBottom";
  Icon "WIcon( WResourceID( ICON_01 ) )";
  FormPositionType "Centered";
  FormAbsTop "111";
  FormAbsLeft "5";
  FDXStructName "Form1FDXStruct";
  Text "Menu Events";
  @begin Event "Create"
   GencodeSrcLine 222;
   FunctionName "Form_Test::Form_Test_Create";
  @end;
  @begin Event "InitMenu"
   GencodeSrcLine 335;
   FunctionName "Form_Test::Form_Test_InitMenu";
  @end;
  @begin Event "InitPopupMenu"
   GencodeSrcLine 342;
   FunctionName "Form_Test::Form_Test_InitPopupMenu";
  @end;
  @begin Event "MenuSelect"
   GencodeSrcLine 349;
   FunctionName "Form_Test::Form_Test_MenuSelect";
  @end;
  @begin UserFunction "Form_Test()"
   Compiler 1;
   GencodeSrcLine 365;
   FunctionName "Form_Test::Form_Test()";
  @end;
  @begin UserFunction "~Form_Test()"
   Compiler 1;
   GencodeSrcLine 369;
   FunctionName "Form_Test::~Form_Test()";
  @end;
  @begin UserFunction "showEvent( WString event, WString object )"
   Private 1;
   GencodeSrcLine 373;
   FunctionName "Form_Test::showEvent( WString event, WString object )";
  @end;
  @begin UserFunction "Prototype for showEvent( WString event, WString object )"
   Private 1;
   GencodeSrcLine 106;
   FunctionName "Form_Test::Prototype for showEvent( WString event, WString object )";
  @end;
  @begin UserFunction "setEvents( WMenuObject * menu, WString hint )"
   Private 1;
   GencodeSrcLine 384;
   FunctionName "Form_Test::setEvents( WMenuObject * menu, WString hint )";
  @end;
  @begin UserFunction "Prototype for setEvents( WMenuObject * menu, WString hint )"
   Private 1;
   GencodeSrcLine 108;
   FunctionName "Form_Test::Prototype for setEvents( WMenuObject * menu, WString hint )";
  @end;
  @begin UserFunction "menu_Select( WObject * source, WMessageEventData * event )"
   Private 1;
   GencodeSrcLine 392;
   FunctionName "Form_Test::menu_Select( WObject * source, WMessageEventData * event )";
  @end;
  @begin UserFunction "Prototype for menu_Select( WObject * source, WMessageEventData * event )"
   Private 1;
   GencodeSrcLine 110;
   FunctionName "Form_Test::Prototype for menu_Select( WObject * source, WMessageEventData * event )";
  @end;
  @begin UserFunction "menu_Close( WObject * source, WMessageEventData * event )"
   Private 1;
   GencodeSrcLine 408;
   FunctionName "Form_Test::menu_Close( WObject * source, WMessageEventData * event )";
  @end;
  @begin UserFunction "Prototype for menu_Close( WObject * source, WMessageEventData * event )"
   Private 1;
   GencodeSrcLine 112;
   FunctionName "Form_Test::Prototype for menu_Close( WObject * source, WMessageEventData * event )";
  @end;
  @begin UserFunction "menu_InitMenu( WObject * source, WMessageEventData * event )"
   Private 1;
   GencodeSrcLine 423;
   FunctionName "Form_Test::menu_InitMenu( WObject * source, WMessageEventData * event )";
  @end;
  @begin UserFunction "Prototype for menu_InitMenu( WObject * source, WMessageEventData * event )"
   Private 1;
   GencodeSrcLine 114;
   FunctionName "Form_Test::Prototype for menu_InitMenu( WObject * source, WMessageEventData * event )";
  @end;
  @begin UserFunction "menu_InitPopupMenu( WObject * source, WMessageEventData * event )"
   Private 1;
   GencodeSrcLine 434;
   FunctionName "Form_Test::menu_InitPopupMenu( WObject * source, WMessageEventData * event )";
  @end;
  @begin UserFunction "Prototype for menu_InitPopupMenu( WObject * source, WMessageEventData * event )"
   Private 1;
   GencodeSrcLine 116;
   FunctionName "Form_Test::Prototype for menu_InitPopupMenu( WObject * source, WMessageEventData * event )";
  @end;
  @begin UserFunction "findMenu( WMessageEventData * event )"
   Private 1;
   GencodeSrcLine 451;
   FunctionName "Form_Test::findMenu( WMessageEventData * event )";
  @end;
  @begin UserFunction "Prototype for findMenu( WMessageEventData * event )"
   Private 1;
   GencodeSrcLine 118;
   FunctionName "Form_Test::Prototype for findMenu( WMessageEventData * event )";
  @end;
  ResID 101;
  DesignName Form_Test;
  TabIndex 0;
  HasPopupMenu popup_Main;
  DesignRect 5,111,251,253;
 @end;

 @begin Menu
  ItemCount 0;
  DesignName "menu_Main";
  IsDefault 1;
  ResID 101;
  DesignRect 190,180,19,18;
  @begin Event "InitMenu"
   GencodeSrcLine 464;
   FunctionName "Form_Test::menu_Main_InitMenu";
  @end;
  @begin Popup
   Name "Main";
   Caption "&Main";
   NegotiatePosition None;
   @begin Item
    Name "MainOne";
    Caption "&One";
    ResID 1001;
    NegotiatePosition None;
   @end;
   @begin Item
    Name "MainTwo";
    Caption "&Two";
    ResID 1002;
    NegotiatePosition None;
   @end;
   @begin Popup
    Name "MainCascade";
    Caption "&Cascade";
    NegotiatePosition None;
    @begin Item
     Name "MainCascadeOne";
     Caption "&One";
     ResID 1004;
     NegotiatePosition None;
    @end;
    @begin Item
     Name "MainCascadeTwo";
     Caption "&Two";
     ResID 1005;
     NegotiatePosition None;
    @end;
    @begin Popup
     Name "MainCascadeCascade";
     Caption "&Cascade";
     NegotiatePosition None;
     @begin Item
      Name "MainCascadeCascadeOne";
      Caption "&One";
      ResID 1007;
      NegotiatePosition None;
     @end;
     @begin Item
      Name "MainCascadeCascadeTwo";
      Caption "&Two";
      ResID 1008;
      NegotiatePosition None;
     @end;
    @end;
   @end;
  @end;
 @end;

 @begin PopupMenu
  ItemCount 0;
  DesignName "popup_Main";
  IsDefault 1;
  ResID 102;
  DesignRect 215,180,19,18;
  @begin Event "Close"
   GencodeSrcLine 472;
   FunctionName "Form_Test::popup_Main_Close";
  @end;
  @begin Event "InitMenu"
   GencodeSrcLine 484;
   FunctionName "Form_Test::popup_Main_InitMenu";
  @end;
  @begin Event "InitPopupMenu"
   GencodeSrcLine 492;
   FunctionName "Form_Test::popup_Main_InitPopupMenu";
  @end;
  @begin Event "Select"
   GencodeSrcLine 500;
   FunctionName "Form_Test::popup_Main_Select";
  @end;
  @begin Item
   Name "One";
   Caption "One";
   ResID 10000;
   NegotiatePosition None;
  @end;
  @begin Item
   Name "Two";
   Caption "Two";
   ResID 10001;
   NegotiatePosition None;
  @end;
  @begin Popup
   Name "Cascade";
   Caption "Cascade";
   NegotiatePosition None;
   @begin Item
    Name "CascadeOne";
    Caption "One";
    ResID 10003;
    NegotiatePosition None;
   @end;
   @begin Item
    Name "CascadeTwo";
    Caption "Two";
    ResID 10004;
    NegotiatePosition None;
   @end;
   @begin Popup
    Name "CascadeCascade";
    Caption "Cascade";
    NegotiatePosition None;
    @begin Item
     Name "CascadeCascadeOne";
     Caption "One";
     ResID 10006;
     NegotiatePosition None;
    @end;
    @begin Item
     Name "CascadeCascadeTwo";
     Caption "Two";
     ResID 10007;
     NegotiatePosition None;
    @end;
   @end;
  @end;
 @end;

 @begin Object "WListBox"
  WLBSNotify 1;
  WLBSHasStrings 1;
  WLBSNoIntegralHeight 1;
  WCCSTop 1;
  WCCSNoDivider 1;
  WSVScroll 1;
  WSBorder 1;
  WSChild 1;
  WSExClientEdge 1;
  WSVisible 1;
  FDXFieldName "lb_1_data";
  FDXFieldType "WInt";
  ResID 103;
  DesignName lb_EventList;
  TabIndex 2;
  DesignRect 15,90,215,85;
  @begin ComponentData "lb_EventList"
  @end;
 @end;

 @begin Object "WCommandButton"
  WSChild 1;
  WSMaximizeBox 1;
  WSTabStop 1;
  WSVisible 1;
  Pressed "0";
  FDXFieldName "cb_1_data";
  FDXFieldType "WBool";
  Text "&Clear";
  @begin Event "Click"
   GencodeSrcLine 508;
   FunctionName "Form_Test::cb_Clear_Click";
  @end;
  ResID 104;
  DesignName cb_Clear;
  TabIndex 3;
  DesignRect 15,180,40,16;
 @end;

 @begin Object "WLabel"
  WSSNotify 1;
  WSChild 1;
  WSExClientEdge 1;
  WSVisible 1;
  Text "Click here with the right mouse button to activate the form's popup menu.";
  ResID 105;
  DesignName label_1;
  TabIndex 4;
  DesignRect 10,40,110,30;
 @end;

 @begin Object "WListBox"
  WLBSNotify 1;
  WLBSHasStrings 1;
  WLBSNoIntegralHeight 1;
  WCCSTop 1;
  WCCSNoDivider 1;
  WSVScroll 1;
  WSBorder 1;
  WSChild 1;
  WSExClientEdge 1;
  WSVisible 1;
  FDXFieldName "lb_1_data";
  FDXFieldType "WInt";
  @begin Event "InitMenu"
   GencodeSrcLine 517;
   FunctionName "Form_Test::lb_Test_InitMenu";
  @end;
  @begin Event "InitPopupMenu"
   GencodeSrcLine 525;
   FunctionName "Form_Test::lb_Test_InitPopupMenu";
  @end;
  ResID 106;
  DesignName lb_Test;
  TabIndex 5;
  HasPopupMenu popup_Main;
  DesignRect 125,40,110,30;
  @begin ComponentData "lb_Test"
@begin-code ListBoxInitialText

Click here with the right mouse
button to activate the list box's
popup menu.

@end-code;
  @end;
 @end;

 @begin Object "WLabel"
  WSSNotify 1;
  WSChild 1;
  WSExClientEdge 1;
  WSVisible 1;
  Text "This sample shows the events generated as you navigate through menus.  See the form's Create event for additional information.";
  ResID 107;
  DesignName label_Comments;
  TabIndex 6;
  DesignRect 10,10,225,25;
 @end;

 @begin Object "WGroupBox"
  WCCSTop 1;
  WCCSNoMoveY 1;
  WCCSBottom 1;
  WCCSNoResize 1;
  WSChild 1;
  WSVisible 1;
  Text "Events";
  ResID 108;
  DesignName groupb_1;
  TabIndex 7;
  DesignRect 10,80,225,125;
 @end;

 @begin HPPPrefixBlock
@begin-code HPPPrefix

// Declarations added here will be included at the top of the .HPP file

@end-code;
  GencodeSrcLine 10;
 @end;

 @begin CPPPrefixBlock
@begin-code CPPPrefix

// Code added here will be included at the top of the .CPP file

//  Include definitions for resources.
#include "WRes.h"

@end-code;
  GencodeSrcLine 10;
 @end;

 @begin ClassContentsBlock
@begin-code ClassContents

    public:
        // add your public instance data here
    private:
        // add your private instance data here
        WInt                _count;

    protected:
        // add your protected instance data here

@end-code;
  GencodeSrcLine 98;
 @end;

@begin-code GeneratedClassContents

        Form_Test();
        ~Form_Test();

@end-code;

@begin-code Code "Form_Test::Form_Test()"

@@CLASSNAME@::@CLASSNAME@()
{

}

@end-code;

@begin-code Code "Form_Test::~Form_Test()"

@@CLASSNAME@::~@CLASSNAME@()
{

}

@end-code;

@begin-code Code "Form_Test::showEvent( WString event, WString object )"

void @CLASSNAME@::showEvent( WString event, WString object )
{
    WInt                    index;
    WString                 text;

    _count++;
    text.Sprintf( "%2d %s on %s", _count, event.GetText(), object.GetText() );
    index = lb_EventList->Add( text, -1, NULL );
    lb_EventList->SetSelected( index );

}

@end-code;

@begin-code Code "Form_Test::Prototype for showEvent( WString event, WString object )"

    private:
        void showEvent( WString event, WString object );

@end-code;

@begin-code Code "Form_Test::setEvents( WMenuObject * menu, WString hint )"

void @CLASSNAME@::setEvents( WMenuObject * menu, WString hint )
{
    menu->SetHintText( hint );
    menu->SetEventHandler( WInitMenuEvent, this, (WEventHandler)menu_InitMenu );
    menu->SetEventHandler( WInitPopupMenuEvent, this, (WEventHandler)menu_InitPopupMenu );
    menu->SetEventHandler( WCloseEvent, this, (WEventHandler)menu_Close );
    menu->SetEventHandler( WSelectEvent, this, (WEventHandler)menu_Select );
}

@end-code;

@begin-code Code "Form_Test::Prototype for setEvents( WMenuObject * menu, WString hint )"

    private:
        void setEvents( WMenuObject * menu, WString hint );

@end-code;

@begin-code Code "Form_Test::menu_Select( WObject * source, WMessageEventData * event )"

WBool @CLASSNAME@::menu_Select( WObject * source, WMessageEventData * event )
{
    WString             hint;
    WMenuObject *       menu;
    WStatusBar *        status;
    WString             text;

    menu = (WMenuObject *)source;
    hint = menu->GetHintText();
    text.Sprintf( "the menu %s", hint.GetText() );
    showEvent( "Select", text );
    status = GetStatusBar();
    status->SetText( hint );

    return FALSE;
}

@end-code;

@begin-code Code "Form_Test::Prototype for menu_Select( WObject * source, WMessageEventData * event )"

    private:
        WBool menu_Select(  WObject * source,  WMessageEventData * event );

@end-code;

@begin-code Code "Form_Test::menu_Close( WObject * source, WMessageEventData * event )"

WBool @CLASSNAME@::menu_Close( WObject * source, WMessageEventData * event )
{
    WString             hint;
    WMenuObject *       menu;
    WStatusBar *        status;

    menu = (WMenuObject *)source;
    hint = menu->GetHintText();
    showEvent( "*** Close", hint );
    status = GetStatusBar();
    status->SetText( "" );

    return FALSE;

}

@end-code;

@begin-code Code "Form_Test::Prototype for menu_Close( WObject * source, WMessageEventData * event )"

    private:
        WBool menu_Close( WObject * source, WMessageEventData * event );

@end-code;

@begin-code Code "Form_Test::menu_InitMenu( WObject * source, WMessageEventData * event )"

WBool @CLASSNAME@::menu_InitMenu( WObject * source, WMessageEventData * event )
{
    WString             hint;
    WMenuObject *       menu;

    menu = (WMenuObject *)source;
    hint = menu->GetHintText();
    showEvent( "*** InitMenu", hint );

    return FALSE;
}

@end-code;

@begin-code Code "Form_Test::Prototype for menu_InitMenu( WObject * source, WMessageEventData * event )"

    private:
        WBool menu_InitMenu( WObject * source, WMessageEventData * event );

@end-code;

@begin-code Code "Form_Test::menu_InitPopupMenu( WObject * source, WMessageEventData * event )"

WBool @CLASSNAME@::menu_InitPopupMenu( WObject * source, WMessageEventData * event )
{
    WString             hint = "";
    WString             name;
    WPopupMenu *        popup;
    WString             text;

    popup = findMenu( event );
    if( popup ) {
        hint = popup->GetHintText();
    }
    name = ((WWindow *)source)->GetName();
    text.Sprintf( "the menu %s (parent %s)", hint.GetText(), name.GetText() );
    showEvent( "InitPopupMenu", text );

    return FALSE;
}

@end-code;

@begin-code Code "Form_Test::Prototype for menu_InitPopupMenu( WObject * source, WMessageEventData * event )"

    private:
        WBool menu_InitPopupMenu( WObject * source, WMessageEventData * event );

@end-code;

@begin-code Code "Form_Test::findMenu( WMessageEventData * event )"

WPopupMenu * @CLASSNAME@::findMenu(
    WMessageEventData *     event )
{
    WPopupMenu *            popup;

    // Look for popup menu on the menu bar
    popup = (WPopupMenu *)menu_Main->Find( (WMenuHandle)event->wParam, WPopupMenu::ClassID() );
    if( popup == NULL ) {
        // Look for popup menu in the form's popup menu
        popup = (WPopupMenu *)popup_Main->Find( (WMenuHandle)event->wParam, WPopupMenu::ClassID() );
    }
    return( popup );
}

@end-code;

@begin-code Code "Form_Test::Prototype for findMenu( WMessageEventData * event )"

    private:
        WPopupMenu * findMenu( WMessageEventData * event );

@end-code;

@begin-code Code "Form_Test::Form_Test_Create"

// Menu Events

// The following events are of interest when programming menus:

// InitMenu
// --------
// Applies to forms and menu bars (WMenu).  This event is called when a root menu on
// a menu bar or a popup menu on a form is opened.  It is not called when cascaded
// menus within an open menu are opened.

// When a menu is opened on a menu bar, the InitMenu event is first called on the menu's
// parent form.  If the InitMenu event routine is not defined on the form, or it returns
// FALSE, the InitMenu event on the menu bar (WMenu) is called.

// You can use this event to set the state of menu items before a menu is displayed.  As the
// specific menu is not identified, you need to set the state of all menu items in all menus.
// (Note: The findMenu function in this sample can be used to determine the specific menu
// that caused the InitMenu event to be called).

// The InitMenu event on the form is a convenient place to initialize menus that are used
// both in the form's menu bar and in the form's context menu since this event will
// be called before displaying a root menu in either location.

// InitPopupMenu
// -------------
// Applies to a menu (WPopupMenu) and to the parent object of the root popup menu.
// This event is called whenever a popup menu is about to be opened, including cascaded
// menus.

// When a popup menu is opened, the InitPopupMenu event is called on the root parent object.
// If this object does not define the InitPopupMenu event, or the event handler returns FALSE,
// the InitPopupMenu event on the menu (WPopupMenu) is called.

// You can use this event to set the state of menu items before a menu is displayed.  The
// specific menu is not identified so when using this event on the root parent object you
// need to set the state of all menu items in all menus.
// (Note: The findMenu function in this sample can be used to determine the specific menu
// that caused the InitMenu event to be called).

// Use the WInitPopupMenu to set the state of menu items for individual popup menus, and
// for menus which are not parented on forms (i.e. where InitMenu cannot be used).

// Select
// ------
// Applies to menus (WPopupMenu) and menu items (WMenuItem).  This event is called when the
// item is selected in a menu.

// Use the Select event if you want to display a hint about the menu item in the status
// area of the form.

// Close
// -----
// Applies to a form's popup menu (WPopupMenu).  This event is called when the
// popup menu is closed.

// ContextMenu
// -----------
// Applies to forms and controls.  This event is called when a user clicks on an object
// with the right mouse button.  You can use this event with the Track method to directly
// control the display of a popup menu.  In this case you could set the state of menu items
// in your ContextMenu event before displaying the menu with the Track method
// rather then in an InitMenu or InitPopupMenu event.

// This program does not use the ContextMenu event.  Instead the popup menu for the form
// and test list box are set on the Popup Menu page of their property dialogs.  The Popup
// property of forms and controls can also be set at runtime.  You would do this if
// you wanted to use the same menu in a menu bar and a context menu.


WBool @CLASSNAME@::Form_Test_Create(
    WObject *               source,
    WCreateEventData *      event )
{
    WStatusBar *            status;

    // Reset line count to be displayed for each event.
    _count = 0;

    // Set hint text and event handlers for the menu objects that cannot be
    // directly accessed from the form.

    // These are the objects on the menu bar

    setEvents( menu_Main_Main, "Main" );
    setEvents( menu_Main_MainOne, "MainOne" );
    setEvents( menu_Main_MainTwo, "MainTwo" );
    setEvents( menu_Main_MainCascade, "MainCascade" );
    setEvents( menu_Main_MainCascadeOne, "MainCascadeOne" );
    setEvents( menu_Main_MainCascadeTwo, "MainCascadeTwo" );
    setEvents( menu_Main_MainCascadeCascade, "MainCascadeCascade" );
    setEvents( menu_Main_MainCascadeCascadeOne, "MainCascadeCascadeOne" );
    setEvents( menu_Main_MainCascadeCascadeTwo, "MainCascadeCascadeTwo" );

    // These are the objects on the popup menu.

    // (The popup menu is set as the form's context menu using the
    // Popup Menu page of the form's properties).

    setEvents( popup_Main_One, "One" );
    setEvents( popup_Main_Two, "Two" );
    setEvents( popup_Main_Cascade, "Cascade" );
    setEvents( popup_Main_CascadeOne, "CascadeOne" );
    setEvents( popup_Main_CascadeTwo, "CascadeTwo" );
    setEvents( popup_Main_CascadeCascade, "CascadeCascade" );
    setEvents( popup_Main_CascadeCascadeOne, "CascadeCascadeOne" );
    setEvents( popup_Main_CascadeCascadeTwo, "CascadeCascadeTwo" );

    // Get rid of the resize grip from the status bar
    status = GetStatusBar();
    status->ChangeStyle( WStatusSizeGrip, false, true );

    return FALSE;
}

@end-code;

@begin-code Code "Form_Test::Form_Test_InitMenu"

WBool @CLASSNAME@::Form_Test_InitMenu(
    WObject *               source,
    WMessageEventData *     event )
{
    showEvent( "InitMenu", "the form Form_Test" );
    return FALSE;
}

@end-code;

@begin-code Code "Form_Test::Form_Test_InitPopupMenu"

WBool @CLASSNAME@::Form_Test_InitPopupMenu(
    WObject *               source,
    WMessageEventData *     event )
{
    showEvent( "InitPopupMenu", "the form Form_Test" );
    return FALSE;
}

@end-code;

@begin-code Code "Form_Test::Form_Test_MenuSelect"

WBool @CLASSNAME@::Form_Test_MenuSelect(
    WObject *                  source,
    WMessageEventData *        event )
{
    WPopupMenu *    currPopup = GetCurrentPopupMenu();
    WBool            ret = FALSE;

    //  This code forces the Close event handler to be called for
    //  popup menus on the form.

    if( event->GetMenuClosed() && currPopup != NULL ) {
        currPopup->CallEventHandler( WCloseEvent, this );
        ret = TRUE;
    }
    return ret;
}

@end-code;

@begin-code Code "Form_Test::menu_Main_InitMenu"

WBool @CLASSNAME@::menu_Main_InitMenu(
    WObject *               source,
    WMessageEventData *     event )
{
    showEvent( "InitMenu", "the menu bar menu_Main" );

    return FALSE;
}

@end-code;

@begin-code Code "Form_Test::popup_Main_Close"

WBool @CLASSNAME@::popup_Main_Close(
    WObject *           source,
    WEventData *        event )
{
    WStatusBar *        status;

    showEvent( "Close", "the context menu popup_Main" );
    status = GetStatusBar();
    status->SetText( "" );

    return FALSE;
}

@end-code;

@begin-code Code "Form_Test::popup_Main_InitMenu"

WBool @CLASSNAME@::popup_Main_InitMenu(
    WObject *               source,
    WMessageEventData *     event )
{
    showEvent( "*** InitMenu", "the context menu popup_Main" );

    return FALSE;
}

@end-code;

@begin-code Code "Form_Test::popup_Main_InitPopupMenu"

WBool @CLASSNAME@::popup_Main_InitPopupMenu(
    WObject *               source,
    WMessageEventData *     event )
{
    showEvent( "InitPopupMenu", "the context menu popup_Main" );

    return FALSE;
}

@end-code;

@begin-code Code "Form_Test::popup_Main_Select"

WBool @CLASSNAME@::popup_Main_Select(
    WObject *           source,
    WEventData *        event )
{
    showEvent( "*** Select", "popup_Main" );

    return FALSE;
}

@end-code;

@begin-code Code "Form_Test::cb_Clear_Click"

WBool @CLASSNAME@::cb_Clear_Click(
    WObject *           source,
    WEventData *        event )
{
    lb_EventList->DeleteAll();
    _count = 0;

    return FALSE;
}

@end-code;

@begin-code Code "Form_Test::lb_Test_InitMenu"

WBool @CLASSNAME@::lb_Test_InitMenu(
    WObject *               source,
    WMessageEventData *     event )
{
    showEvent( "*** InitMenu", "on the list box lb_Test" );

    return FALSE;
}

@end-code;

@begin-code Code "Form_Test::lb_Test_InitPopupMenu"

WBool @CLASSNAME@::lb_Test_InitPopupMenu(
    WObject *               source,
    WMessageEventData *     event )
{
    showEvent( "InitPopupMenu", "on the list box lb_Test" );

    return FALSE;
}

@end-code;
@end;