added (experimental) AndroWish launcher
This commit is contained in:
@@ -0,0 +1,23 @@
|
|||||||
|
# AndroWish launcher for BFG
|
||||||
|
|
||||||
|
# make the app fullscreen
|
||||||
|
wm attributes . -fullscreen 1
|
||||||
|
|
||||||
|
# apply the awdark theme
|
||||||
|
|
||||||
|
package require awthemes
|
||||||
|
set dFontSpec [font actual TkDefaultFont]
|
||||||
|
set ScaleCur [expr {double([font metrics $dFontSpec -ascent]) / [font metrics TkDefaultFont -ascent]}]
|
||||||
|
::themeutils::setThemeColors awdark scale.factor $ScaleCur
|
||||||
|
::themeutils::setThemeColors awdark style.progressbar rounded-line style.scale circle-rev\
|
||||||
|
style.scrollbar-grip none scrollbar.has.arrows false
|
||||||
|
package require awdark
|
||||||
|
ttk::style theme use awdark
|
||||||
|
::ttk::theme::awdark::setMenuColors -optiondb
|
||||||
|
|
||||||
|
# size messageboxes
|
||||||
|
option add *Dialog.msg.wrapLength [expr {int(0.6*[winfo screenwidth .])}]
|
||||||
|
|
||||||
|
# launch BFG
|
||||||
|
|
||||||
|
source "bfg.tcl"
|
||||||
Reference in New Issue
Block a user