LiveCode Forums

Code: Select all

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 the backcolor of stack "4wDevo" --gray35
   set the forecolor of this cd to gray90
   set the topcolor of this cd to gray55
   set the bottomColor of this cd to gray25
   -- Script Quit shortcut:
   put the script of grp "revMenubar" into tScript
   if line 199 of tScript is "      put "&quote&"&Quit"&quote&" & return after tFile" then
      put "put "&quote&"&Quit/Q"&quote&" & return after tFile" into line 199 of tScript
      set the script of grp "revMenubar" to tScript
   end if
   --
   set the defaultStack to tSaveDS
end UbuntifyRevMenubar