if { $tcl_platform(platform) == "windows" } { #option add *Listbox.background SystemWindow widgetDefault option add *ListBox.background SystemWindow widgetDefault #option add *Button.padY 0 widgetDefault option add *ButtonBox.padY 0 widgetDefault option add *Dialog.padY 0 widgetDefault option add *Dialog.anchor e widgetDefault } else { option add *Scrollbar.width 12 widgetDefault option add *Scrollbar.borderWidth 1 widgetDefault option add *Dialog.separator 1 widgetDefault option add *MainFrame.relief raised widgetDefault option add *MainFrame.separator none widgetDefault } option read [file join $::BWIDGET::LIBRARY "lang" "en.rc"] ## Add a TraverseIn binding to standard Tk widgets to handle some of ## the BWidget-specific things we do. bind Entry <> { %W selection range 0 end; %W icursor end } bind Spinbox <> { %W selection range 0 end; %W icursor end } bind all { Widget::traverseTo [Widget::focusNext %W] } bind all { Widget::traverseTo [Widget::focusPrev %W] }