On 5/11/06, Santiago Cardoso Geller <[EMAIL PROTECTED]> wrote:
> Osvaldo:
> Estuve probando hacerlo, y todavía no llegué a lograrlo. La verdad no
> tuve tiempo de seguir viéndolo. Pero para no demorar, te mando lo que
> estaba probando hasta el momento. Tal vez te sirva de algo.
>
> Estaba probando con las clases CwMenu, CwMenuBar y CwMenuEntry de la
> aplicación CommonExtendedWidgets. Yo uso VAST 6. Supongo que en la
> versión 5.0 también están.
Nosotros tenemos modelada la clase Menu y MenuComposite, que son
objetos nuestros que modelan los menues (para cualquier interfase), en
el
Menu>>asMenuViewIn: parentView
"Answer anAbtCwMenuView as children of parentView containing the
receiver
elements as subMenus."
| menu cascade |
cascade := AbtCascadeButtonView abtCreatePart: 'cascade', self label
asString parent: parentView.
cascade object: self label.
menu := AbtCwMenuView abtCreatePart: 'menu', self label asString
parent: parentView.
self elements do: [:each | each asMenuViewIn: menu ].
cascade menu: menu.
^cascade
MenuComposite>>asMenuViewIn: parentView
"Answer anAbtCwMenuView as children of parentView containing the
receiver
elements as subMenus."
| menu cascade |
cascade := AbtCascadeButtonView abtCreatePart: 'cascade', self label
asString parent: parentView.
cascade object: self label.
menu := AbtCwMenuView abtCreatePart: 'menu', self label asString
parent: parentView.
self elements do: [:each | each asMenuViewIn: menu ].
cascade menu: menu.
^cascade
Luego en la visual part tengo un método que hace:
initializeMenuBar
"Private - Inicializa la barra de menu del receptor."
| window menuBar |
window := self subpartNamed: 'Window'.
menuBar := AbtCwMenuView abtCreatePart: #AbtCwMenuView parent: nil
owner: self.
(self menuPrincipal elements select: [:each | each isComposite ]) do:
[:each | each asMenuViewIn: menuBar ].
menuBar rowColumnType: 1.
window menu: menuBar
Saludos.
--
Esteban A. Maringolo
[EMAIL PROTECTED]
--~--~---------~--~----~------------~-------~--~----~
Ha recibido este mensaje porque está suscrito a Grupos de Google
"clubSmalltalk" grupo.
Si quiere publicar en este grupo, mande un correo electrónico a
[email protected]
Para anular la suscripción a este grupo, envíe un mensaje a [EMAIL PROTECTED]
Para visualizar más opciones, visite este grupo
enhttp://groups.google.com/group/clubSmalltalk
-~----------~----~----~----~------~----~------~--~---
