
I wasn't born there. I'm a norfolk boy. Blast me, he's a rumm'n.
Although, to be classed a local, at least 4 generations would have had to live here. So I'm a strange old mix I suppose.
I've seen this before... [has a rummage around various notes]...richmond62 wrote: ↑Sun Nov 05, 2023 9:13 pm Neither a log out or a restart returned my menu bar to Light mode!
Code: Select all
defaults write -g NSRequiresAquaSystemAppearance -bool No
Code: Select all
defaults delete -g NSRequiresAquaSystemAppearance
Code: Select all
on openStack
if Mode is dark then
set the textColor of btn "Plonk" to black
end if
end openStack
I'm only going by what was there before, so I just removed line 2 of that dialog which mentioned buying livecode, and then made the text font larger. I also took away the link, so clicking the banner doesn't go to their purchase page.
You can detect if the OS is in light or dark mode with:richmond62 wrote: ↑Mon Nov 06, 2023 8:35 amCode: Select all
on openStack if Mode is dark then set the textColor of btn "Plonk" to black end if end openStack
Code: Select all
send tDarkLightCheck to stack "revMenuBar" in 1 tick
Code: Select all
on IDEToLightMode
lock screen
if the platform contains "linux" then tApplyTheme_Linux_Light
if the platform contains "mac" then tApplyTheme_Mac_Light
if the platform contains "win" then tApplyTheme_Win_Light
unlock screen
end IDEToLightMode
on IDEToDarkMode
lock screen
if the platform contains "linux" then tApplyTheme_Linux_Dark
if the platform contains "mac" then tApplyTheme_Mac_Dark
if the platform contains "win" then tApplyTheme_Win_Dark
unlock screen
end IDEToDarkMode
Code: Select all
send IDEToDarkMode to stack "home"
Code: Select all
send IDEToLightMode to stack "home"
Code: Select all
lock screen
-- you can force colour overrides with
put 255,255,255 into tNewForegroundCol -- white
put 31,31,31 into tNewBackgroundCol -- dark grey
-- set to all windows
put the mainstacks & return & the openstacks into tStackList
put 0 into tcount
repeat the number of lines in tStackList
add 1 to tcount
if there is a stack (line tcount of tStackList) then
set the backgroundColor of stack (line tcount of tStackList) to tNewBackgroundCol
set the foregroundColor of stack (line tcount of tStackList) to tNewForegroundCol
end if
end repeat
put "" into tStackList
-- anything else specifically? (specify in this format!) -- this is ugly, but it works
put "set the backgroundColor of card " & QUOTE & "main" & QUOTE & " of stack " & QUOTE & "revSETemplate" & QUOTE & " of stack " & QUOTE & "revNewScriptEditor" & QUOTE & " to tNewBackgroundCol" into line (the number of lines in tStackList +1) of tStackList
put "set the foregroundColor of card " & QUOTE & "main" & QUOTE & " of stack " & QUOTE & "revSETemplate" & QUOTE & " of stack " & QUOTE & "revNewScriptEditor" & QUOTE & " to tNewForegroundCol" into line (the number of lines in tStackList +1) of tStackList
set the cAppearanceBackgroundCol of stack "revPreferences" to tNewBackgroundCol
set the cAppearanceForegroundCol of stack "revPreferences" to tNewForegroundCol
filter lines of tStackList without empty
do tStackList
unlock screen
Code: Select all
on mouseUp
set the backGroundColor of this stack to 50,50,50
set the foreGroundColor of this stack to 217,217,217
end mouseUp
Code: Select all
on mouseUp
set the backGroundColor of this stack to empty
set the foreGroundColor of this stack to empty
set the backGroundColor of this stack to 42,117,16
set the foreGroundColor of this stack to 42,117,16
end mouseUp
Code: Select all
if tAppearanceMode contains "dark" then
-- dark mode
put "0,0,0" into tNewBackgroundCol
put "255,255,255" into tNewForegroundCol
Code: Select all
if tAppearanceMode contains "dark" then
-- dark mode
put "0,0,0" into tNewBackgroundCol
put "0,0,0" into tNewForegroundCol
Users browsing this forum: No registered users and 2 guests