Fwd: VDC not showing toolbar

---------- Forwarded message ----------
From: Albino Moreno <[email protected]>
Date: 2015-01-26 10:26 GMT+01:00
Subject: VDC not showing toolbar
To: [email protected]


Hi all,

I'm testing a little program who shows a window with a menu and (would like
to show it but not showing anything) a toolbar. I'm using a .4tb file with
this content:

*toolbar.4tb:*
<ToolBar buttonTextHidden="0" iconHidden="1" hidden="0"
buttonTextPosition="beside">
<ToolBarItem name="SOCIOS" text="Acceso a menu SOCIOS" comment="Altas/Bajas
y Modificaciones de datos de SOCIOS" />
<ToolBarSeparator="|"/>
<ToolBarItem name="EPSAR" text="Acceso a menu EPSAR" comment="Visualizacion
datos EPSAR" />
</ToolBar>

My program,* menu.4gl* with this content:

database apli01
main

define
  xmenu,
  toolbar,
  acciones,
  estilo char(100),
  subest char(20),
  a char(1)

options
  prompt line last

OPEN WINDOW ventana with form "menu"
current window is ventana

--- Cargamos las acciones
let acciones = "/home/albino/pruebas/run/menu.4ad"
CALL ui.Interface.loadActionDefaults(acciones)

--- Cargamos el toolbar
let estilo="toolbar"
CALL ui.Interface.loadStyles(estilo)
let toolbar = "/home/albino/pruebas/run/toolbar.4tb"
IF aclfgl_sendfile_to_ui(toolbar CLIPPED) THEN END IF
CALL ui.Interface.loadToolbar(toolbar clipped)

--- Cargamos el menú
let xmenu="/home/albino/pruebas/run/menu.4st"
if aclfgl_sendfile_to_ui(xmenu) then end if
let estilo="menu"
CALL ui.Interface.loadStyles(estilo)

MENU "Menu" ATTRIBUTE(STYLE=subest clipped, COMMENT="Hola, soy el menu
principal")
  COMMAND "SOCIOS"
    call busca_cuantos()
    current window is ventana
  COMMAND "LECTURAS CONTADOR"
    CONTINUE MENU
  COMMAND "FACTURAS"
    CONTINUE MENU
  COMMAND "EPSAR"
    CONTINUE MENU
  COMMAND "Terminar"
    EXIT PROGRAM
END MENU
end main

*menu.per contents:*
DATABASE formonly
SCREEN
{
[f001
                                                                   ]
}
attributes
Image f001 = FORMONLY.textvar, AUTOSCALE, PIXELWIDTH=400, PIXELHEIGHT=525 ;

I'm using a .4ad actions file and a .4st styles file, with this content:

*menu.4st:*
<StyleList>
<Style name="menu" >
<StyleAttribute name="horizontal" value="startMenuPosition:tree" />
<StyleAttribute name="posicion" value="ringMenuPosition:right" />
</Style>
<Style name="toolbar" >
<StyleAttribute name="tb_pos" value="toolBarPosition:bottom" />
</Style>
</StyleList>

*menu.4ad:*
<ActionDefaultList>
<ActionDefault name=”SOCIOS” text=”Todo lo relativo a Socios” />
<ActionDefault name=”EPSAR” text=”Todo lo relativo a EPSAR” />
</ActionDefaultList>

¿What is wrong? I can't see any toolbar at screen, but menu yes...

Included screenshot....

Thanks in advance.
Regards.

------------------------------------------------------------------------------
Dive into the World of Parallel Programming. The Go Parallel Website,
sponsored by Intel and developed in partnership with Slashdot Media, is your
hub for all things parallel software development, from weekly thought
leadership blogs to news, videos, case studies, tutorials and more. Take a
look and join the conversation now. http://goparallel.sourceforge.net/

_______________________________________________
Aubit4gl-discuss mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/aubit4gl-discuss