Neat Trick!

xavier.bury at clearstream.com xavier.bury at clearstream.com
Fri Mar 9 10:40:40 EST 2007


Hi Dave,

you can always do this too:

on mousedown
  put "About" && the short name of this stack into last line of me
  pass mousedown
end mousedown

This way you always have the right about menu ;)

Cheers
---------------------=---------------------
Xavier Bury

use-revolution-bounces at lists.runrev.com wrote on 09/03/2007 16:36:04:

> Hi All,
> 
> I was trying to make a Generic Menubar Stack, but had the old problem 
> that the text changes depending on the name of the application, e.g. 
> "About thisApp",  "About thatApp", ""About theOtherApp". Anyway, I 
> tried the following code and it worked! I hadn't realized before that 
> a parameter to a "case" clause can be a variable, which really makes 
> it a lot more powerful.
> 
> Just thought I'd share!
> 
> All the Best
> Dave
> 
> ---------------------------------------------------------------
> --
> --  menuPick
> --
> ---------------------------------------------------------------
> on menuPick theItemSelected
>    local myMenuItemNumber
>    local myAboutMenuItemText
>    local myAboutBoxStackLongName
> 
>    --
>    --  Pull out the Text for the About Box Item
>    --
>    put line -1 of the text of me into myAboutMenuItemText
>    delete char 1 of myAboutMenuItemText
>    switch theItemSelected
>    case myAboutMenuItemText
> 
>      --
>      --  Go to the About Window
>      --
>      put ISMGetStackForService(kAppServiceAboutBox) into 
> myAboutBoxStackLongName
>      if myAboutBoxStackLongName <> empty then
>        go to stack myAboutBoxStackLongName
>      end if
>      break
> 
>    case "Help"
>      break
> 
>    end switch
> end menuPick
> 
> 
> _______________________________________________
> use-revolution mailing list
> use-revolution at lists.runrev.com
> Please visit this url to subscribe, unsubscribe and manage your 
> subscription preferences:
> http://lists.runrev.com/mailman/listinfo/use-revolution



----------------------------------------------------------------------------
Clearstream Services S.A.
42 Avenue JF Kennedy, L-1855 Luxembourg
Société anonyme is organised with limited liability
in the Grand Duchy of Luxembourg RC Luxembourg B 60911.


-----------------------------------------
Visit us at http://www.clearstream.com

IMPORTANT MESSAGE

Internet communications are not secure and therefore Clearstream
International does not accept legal responsibility for the contents
of this message.

The information contained in this e-mail is confidential and may be
legally privileged. It is intended solely for the addressee. If you
are not the intended recipient, any disclosure, copying,
distribution or any action taken or omitted to be taken in reliance
on it, is prohibited and may be unlawful. Any views expressed in
this e-mail are those of the individual sender, except where the
sender specifically states them to be the views of Clearstream
International or of any of its affiliates or subsidiaries.

Legally required information for business correspondence/
Gesetzliche Pflichtangaben fuer Geschaeftskorrespondenz:
http://deutsche-boerse.com/letterhead

END OF DISCLAIMER



More information about the use-livecode mailing list