Black icons in LC 8 DP 14
ambassador at fourthworld.com
Mon Feb 8 11:44:16 EST 2016
Roger Guay wrote:
> I like yours better, Richard. Would you share your script with us?
Sure. It's a checkbox in my
toolkit - here's the script:
put the defaultStack into tSaveDS
set the defaultStack to "revMenubar"
-- Menu text, and adjusting for new size:
set the textFont of stack "revMenubar" to "Ubuntu"
set the textSize of grp "revMenubar" to 13
put 6 into tX
put 0 into i
repeat for each line tMenu in (the controlnames of grp "revMenubar")
add 1 to i
if there is not a btn tMenu of stack "revMenubar" then next repeat
get the formattedWidth of btn tMenu of grp "revMenubar"
set the width of btn tMenu of grp "revMenubar" to it
set the left of btn tMenu of grp "revMenubar" to tX
add it+4 to tX
set the backcolor of this cd to "80,78,72" --the backcolor of stack
set the forecolor of this cd to gray90
set the topcolor of this cd to gray55
set the bottomColor of this cd to gray25
-- Give menus some breathing room:
put "File,Edit,Tools,Object,Text,Development,View,Window,Help" into
put 2 into x
repeat for each item tMenu in tMenus
add 3 to x
set the width of btn tMenu of stack "revMenubar" \
to the formattedWidth of btn tMenu of stack "revMenubar"
set the left of btn tMenu of stack "revMenubar" to x
put the right of btn tMenu of stack "revMenubar" into x
set the defaultStack to tSaveDS
It's been working well in v6 through v8.
Fourth World Systems
Software Design and Development for the Desktop, Mobile, and the Web
Ambassador at FourthWorld.com http://www.FourthWorld.com
More information about the Use-livecode