Black icons in LC 8 DP 14

[Richard Gaskin]

Roger Guay wrote:
> I like yours better, Richard. Would you share your script with us?

Sure. It's a checkbox in my 
soon-to-be-released-once-I-finish-compatibility-with-v8 devolution 
toolkit - here's the script:


on UbuntifyRevMenubar
    put the defaultStack into tSaveDS
    set the defaultStack to "revMenubar"
    lock screen
    -- 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
    end repeat
    -- Colors:
    set the backcolor of this cd to "80,78,72" --the backcolor of stack 
"4wDevo"
    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 
tMenus
    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
    end repeat
    --
    set the defaultStack to tSaveDS
end UbuntifyRevMenubar


It's been working well in v6 through v8.

-- 
  Richard Gaskin
  Fourth World Systems
  Software Design and Development for the Desktop, Mobile, and the Web
  ____________________________________________________________________
  Ambassador at FourthWorld.com                http://www.FourthWorld.com