Line | |
---|
1 | |
---|
2 | if { $tcl_platform(platform) == "windows" } { |
---|
3 | option add *Listbox.background SystemWindow widgetDefault |
---|
4 | option add *ListBox.background SystemWindow widgetDefault |
---|
5 | option add *Tree.background SystemWindow widgetDefault |
---|
6 | option add *Button.padY 0 widgetDefault |
---|
7 | option add *ButtonBox.padY 0 widgetDefault |
---|
8 | option add *Dialog.padY 0 widgetDefault |
---|
9 | option add *Dialog.anchor e widgetDefault |
---|
10 | } else { |
---|
11 | option add *Scrollbar.width 12 widgetDefault |
---|
12 | option add *Scrollbar.borderWidth 1 widgetDefault |
---|
13 | option add *Dialog.separator 1 widgetDefault |
---|
14 | option add *MainFrame.relief raised widgetDefault |
---|
15 | option add *MainFrame.separator none widgetDefault |
---|
16 | } |
---|
17 | |
---|
18 | option read [file join $env(BWIDGET_LIBRARY) "lang" "en.rc"] |
---|
19 | |
---|
20 | bind all <Key-Tab> {focus [Widget::focusNext %W]} |
---|
21 | bind all <Shift-Key-Tab> {focus [Widget::focusPrev %W]} |
---|
Note: See
TracBrowser
for help on using the repository browser.