Thefull

Function Main()
Local oWindow, oToolBar, oToolButton, oBoxV, oRadio1, oRadio2, oRadio3

DEFINE WINDOW oWindow TITLE "T-GTK Toolbar Example POO"
DEFINE BOX oBoxV VERTICAL OF oWindow
DEFINE TOOLBAR oToolBar OF oBoxV

DEFINE TOOLBUTTON oToolButton ;
TEXT "ICONS";
STOCK_ID GTK_STOCK_STOP ;
ACTION oToolBar:SetStyle( GTK_TOOLBAR_ICONS );
OF oToolBar

DEFINE TOOLBUTTON oToolButton ;
TEXT "TEXT";
STOCK_ID GTK_STOCK_EXECUTE ;
ACTION oToolBar:SetStyle( GTK_TOOLBAR_TEXT );
OF oToolBar

DEFINE TOOLBUTTON oToolButton ;
TEXT "BOTH";
STOCK_ID GTK_STOCK_CDROM ;
ACTION oToolBar:SetStyle( GTK_TOOLBAR_BOTH);
OF oToolBar

DEFINE TOOLBUTTON oToolButton ;
TEXT "BOTH_HORIZ";
STOCK_ID GTK_STOCK_HOME ;
ACTION oToolBar:SetStyle( GTK_TOOLBAR_BOTH_HORIZ );
OF oToolBar

DEFINE TOOL SEPARATOR OF oToolBar

DEFINE TOOLRADIO oRadio1 TEXT "Radio 1" ;
STOCK_ID GTK_STOCK_ZOOM_100 ;
ACTION MsgInfo( "Radio 1","HOLA" );
OF oToolBar

DEFINE TOOLRADIO oRadio2 ;
FROM STOCK GTK_STOCK_ZOOM_IN ;
GROUP oRadio1;
ACTION MsgInfo( "Radio 2","HOLA" );
OF oToolBar ;
ACTIVED

DEFINE TOOLRADIO oRadio2 TEXT "Radio 3" ;
STOCK_ID GTK_STOCK_ZOOM_OUT ;
GROUP oRadio1;
ACTION MsgInfo( "Radio 3","HOLA" );
OF oToolBar

DEFINE TOOL SEPARATOR EXPAND OF oToolBar

DEFINE TOOLTOGGLE oToolButton ;
TEXT "Al final Toggle";
STOCK_ID GTK_STOCK_HOME ;
ACTION MsgInfo( "HOLA","HOLA" );
ACTIVED;
OF oToolBar

ACTIVATE WINDOW oWindow