| 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.
