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