24 lines
718 B
Tcl
24 lines
718 B
Tcl
|
# 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"
|