Set the icon to (icon of another stack)--YES!
    Paul Claude 
    paulclaude at postino.it
       
    Thu Jan  5 04:56:40 EST 2006
    
    
  
Hi Rob,
Very good work. It actually may help people who must switch themes of a
stack.
For my needs, I cannot close the stack "X2", therefore your solution it's
not applicable.
Thanks however.
Paul Claude
on 5-01-2006 6:40, Rob Cozens at rcozens at pon.net wrote:
> All,
> 
>> Chameleon stack script:
> 
> On the vain presumption this might actually be of use to some people,
> here's an improved version.  Initialization is moved from openStack
> to preOpenStack and the handlers otherwise tweaked.
> 
> local imagePath1,imagePath2,currentLibrary
> 
> on preOpenStack
>    get the effective fileName of this stack
>    set the itemDelimiter to "/"
>    put "X2.rev" into item -1 of it
>    put it into imagePath1
>    put "X3.rev" into item -1 of it
>    put it into imagePath2
>    start using stack imagePath1
>    put imagePath1 into currentLibrary
>    refreshButtons
> end preOpenStack
> 
> on switchLibraries
>    set the itemDelimiter to "/"
>    stop using stack currentLibrary
>    close stack currentLibrary
>    get item -1 of currentLibrary
>    if it is "x3.rev" then -- use switch logic if toggling between
> three or more icon libraries
>      start using stack imagePath1
>      put imagePath1 into currentLibrary
>     else
>      start using stack imagePath2
>      put imagePath2 into currentLibrary
>    end if
>    send "refreshButtons" to this stack in 1 tick
> end switchLibraries
> 
> on refreshButtons
>    lock screen
>    repeat with x = 1 to the number of buttons
>      set the icon of button x to (the icon of button x)
>    end repeat
>    unlock screen
> end refreshButtons
> 
> Rob Cozens, CCW
> Serendipity Software Company
> 
> Vive R Revolution!
> 
> _______________________________________________
> 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
> 
    
    
More information about the use-livecode
mailing list