source: trunk/BWidget-1.2.1/init.tcl

Last change on this file was 931, checked in by toby, 11 years ago

include rest of files

File size: 952 bytes
Line 
1
2if { $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
18option read [file join $env(BWIDGET_LIBRARY) "lang" "en.rc"]
19
20bind all <Key-Tab>       {focus [Widget::focusNext %W]}
21bind all <Shift-Key-Tab> {focus [Widget::focusPrev %W]}
Note: See TracBrowser for help on using the repository browser.