On 25.05.2011 11:22, Mathias Bauer wrote:
> On 25.05.2011 10:34, Rony G. Flatscher wrote:
>> On 25.05.2011 08:35, Mathias Bauer wrote:
>>> On 24.05.2011 22:31, Rony G. Flatscher wrote:
>>>> Hi there,
>>>> in the meantime I have been able to add shortcuts to the toolbar items
>>>> and they are operational. However, the shortcut letter is not
>>>> underlined, although using the tilde (~) before the letter to be
>>>> underlined in the "Label" property of the toolbar item.
>>>> Is there a different property that I would need to use for having OOo
>>>> underline the shortcut-key?
>>>> (Again it works, using SHIFT+ALT+letter, where ALT is the META2
>>>> KeyModifier.)
>>>> TIA,
>>>> ---rony
>>> What do you mean by "again it works, using SHIFT+ALT+LETTER" ?
>> Just that the defined shortcut-keys are operational. E.g. the shortcut
>> for the "~Import" toolbar item gets defined as SHIFT+META2+I and if you
>> press SHIFT+ALT+I (META2 is ALT on my Windows keyboard) the toolbar item
>> gets executed. It is just the case that the "I" does not get underlined
>> in the toolbar item (a button where the text and the assigned icon get
>> displayed).
> Sorry for being dense ;-), 
That's o.k., as I have no idea what the relevant information is when
reporting this observation. So "dense" questions hopefully help clarify.

> where did you define the shortcut? If a shortcut is defined in a menu,
> it will executed only if the menu has the focus. I don't think that
> this works in toolbars. If I just ad a tilde to a toolbar item label,
> I don't see a way to execute this label as a command like in a menu.
> Are you sure that you don't talk about accelerators (those who are
> assigned to commands using tools-customize-keyboard)?
O.K., I think the best is that I show you the code snippets then.

The code is in ooRexx but excersises the Java API "behind the curtain".
The tilde in ooRexx is the message operator, so left of the tilde is the
receiving object, right of it the message. In case a queryInterface() is
needed, the ooRexx UNO support allows one to merely send the unqualified
interface name to the UNO object in order to retrieve that interface.

Line comments start with two consecutive dashes (--), block comments are
C-like (but can be nested in the Rexx language).

Having said that, here's the snippet, which should give you the exact
information, please look for the area after the comments lead in as "/*
*** shortcut *** */":

    ::routine BNF_toolbar   -- rgf, 2011-05-21: create toolbar for writer module
       use arg xContext, install=.true, location="user"   -- "location": Rexx 
scripts location

       -- define where to store the toolbar
       ToolbarURL = "private:resource/toolbar/custom_bnf4oootoolbar"

       -- get the user interface configuration
       x_MultiServiceFactory = xContext~getServiceManager~XMultiServiceFactory

       configsupplier = "com.sun.star.ui.ModuleUIConfigurationManagerSupplier"
       x_Supplier = 
       -- the document type this toolbar is bound to
       DocumentType = "com.sun.star.text.TextDocument"
       -- get the user interface configuration of writer
       x_UIConfigurationManager = 

          -- define macros and sequence for toolbar
       arrMacro     =.array  ~of("OOoBNF2Diagram.rex", "OOoBNF2All.rex", -
                                 "OOoBNF2XML.rex"    , "OOoXML2BNF.rex", -
                                 "OOoImport.rex"     , "OOoExport.rex" , -
                                 "OptionGUI.rex"     , "addBNF4OOoStyles.rex" , 

    /* *** shortcut *** */
          -- in toolbars the label text does not underline the shortcut char 
indicated with the tilde '~'
       arrMacroLabel=.array  ~of("BNF2~Diagram"       , "BNF2~All"       , -
                                 "BNF2~XML"           , "XML2~BNF"       , -
                                 "~Import"            , "~Export"        , -
                                 "~Options"           , "Add BNF4OOo ~Styles" ,-
                                 "~Uninstall BNF4OOo" )

    /* *** shortcut *** */
          -- define shortcut key for macros
       arrShortCuts=.array   ~of("D", "A", "X", "B", "I", "E", "O", "S", "U")

          -- build macro urls
       do i=1 to arrMacro~items -- a.k.a. "commandURLs"

          -- define built-in icons to be used for our toolbar items
       arrBuiltinIcons=.array~of(".uno:Imagebutton"    , 
".uno:ArrowShapes.striped-right-arrow",  -
".uno:ArrowShapes.left-arrow", -
                                 ".uno:ImportDialog"   , ".uno:ExportTo", - -- 
".uno:ExportDialog", -
                                 ".uno:FormDesignTools", ".uno:StyleApply", -

          -- build image name (Java) array
       arrImageNames = bsf.createJavaArray("java.lang.String", arrMacro~items)
       do i=1 to arrMacro~items
          if install=.true then arrImageNames[i]=arrBuiltinIcons[i]   -- 
install names
                           else arrImageNames[i]=arrMacroUrl[i]       -- 
uninstall names

          -- get image manager
       short0=box("short",0)  -- box the primitive short value "0" in a 

       if install=.true then
          xGraphics=xImageManager~getImages(short0,arrImageNames)  -- load 
images by name
             -- now define new names for images
          do i=1 to arrMacro~items
             arrImageNames[i]=arrMacroUrl[i]              -- uninstall names
             -- save images with new name
       else  /* uninstall */
          xImageManager~removeImages(short0,arrImageNames)-- remove images by 

       xImageManager~store    -- make changes permanent

       if install=.true then      -- create and install/replace the BNF toolbar
          -- create a new toolbar for writer
          x_IndexContainer = x_UIConfigurationManager~createSettings

          -- set name of toolbar
          x_Propertyset = x_IndexContainer~XPropertySet
          x_Propertyset~setPropertyValue("UIName", "BNF4OOo")

          normalItem = bsf.getConstant("com.sun.star.ui.ItemType", "DEFAULT") 
-- normal item

    /* *** shortcut *** */
             -- got shortcut manager, define key with Shift+Alt combination

          modifiers =bsf.getConstant("com.sun.star.awt.KeyModifier", "SHIFT")  
-- Shift-key
          modifiers+=bsf.getConstant("com.sun.star.awt.KeyModifier", "MOD2")   
-- Alt-key


    /* *** define toolbar items *** */
             -- create toolbar items and insert them
          idx=0 -- index to insert toolbar item
          do i=1 to arrMacroURL~items
             toolbarbutton = uno.CreateArray(.UNO~PROPERTYVALUE, 4)
             toolbarbutton[1] = uno.createProperty("CommandURL", arrMacroURL[i] 
             toolbarbutton[2] = uno.createProperty("Label",      
             toolbarbutton[3] = uno.createProperty("Type",       normalItem)
             toolbarbutton[4] = uno.createProperty("Visible",    .true)
             x_IndexContainer~insertByIndex(idx, toolbarbutton) -- add toolbar 

    /* *** shortcut *** */
                -- define shortcut for this MacroURL
             aKeyEvent=KeyEventClz~new     -- create a KeyEvent
             aKeyEvent~Modifiers=modifiers -- set modifiers and shortcut key 
             aKeyEvent~KeyCode  =bsf.getConstant("com.sun.star.awt.Key", 
             xShortCutManager~setKeyEvent(aKeyEvent, arrMacroURL[i])
          xShortCutManager~store      -- save shortcuts

          -- if the toolbar allready exists replace it, otherwise add it to the 
user interface
          If x_UIConfigurationManager~hasSettings(ToolbarURL) then
             x_UIConfigurationManager~replaceSettings( ToolbarURL, 
x_IndexContainer )
             x_UIConfigurationManager~insertSettings( ToolbarURL, 
x_IndexContainer )

       else     -- remove BNF toolbar
          If x_UIConfigurationManager~hasSettings(ToolbarURL) then
             x_UIConfigurationManager~removeSettings( ToolbarURL )

         needed in order to have OOo/LO display icon+text in toolbar!

       cf.: http://www.oooforum.org/forum/viewtopic.phtml?t=66911

           REM See org.openoffice.Office.UI.WindowState.xcs for all possible 
           REM *** Style: 0 = symbol buttons, 1 = text buttons, 2 = 
symbols+text butto
       oWindowState = x_MultiServiceFactory~createInstance(serviceName)
       xWindowState = oWindowState~XNameAccess

       oBasicWindowState = xWindowState~getByName( documentType )
       xBasicWindowState = oBasicWindowState~XNameContainer

       aWindowStateData = uno.CreateArray(.UNO~PROPERTYVALUE, 1)
       aWindowStateData[1] = uno.createProperty("Style", box("short",2))

       if xBasicWindowState~hasByName( ToolbarURL ) then
          xBasicWindowState~replaceByName( ToolbarURL, aWindowStateData )
          xBasicWindowState~insertByName( ToolbarURL, aWindowStateData )


If this is not possible with toolbar item labels, is there another
possibility to still achieve the underlining in the toolbar label text
when displayed to the user?



To unsubscribe send email to dev-unsubscr...@api.openoffice.org
For additional commands send email to sy...@api.openoffice.org
with Subject: help

Reply via email to