home *** CD-ROM | disk | FTP | other *** search
/ PCNET 2006 September - Disc 1 / PCNET_CD_2006_09.iso / linux / puppy-barebones-2.01r2.iso / pup_201.sfs / usr / lib / bwidget / init.tcl < prev    next >
Encoding:
Text File  |  2003-08-12  |  768 b   |  19 lines
  1.  
  2. if { $tcl_platform(platform) == "windows" } {
  3.     option add *Listbox.background      SystemWindow widgetDefault
  4.     option add *ListBox.background      SystemWindow widgetDefault
  5.     option add *Button.padY             0 widgetDefault
  6.     option add *ButtonBox.padY          0 widgetDefault
  7.     option add *Dialog.padY             0 widgetDefault
  8.     option add *Dialog.anchor           e widgetDefault
  9. } else {
  10.     option add *Dialog.separator        1  widgetDefault
  11.     option add *MainFrame.relief        raised widgetDefault
  12.     option add *MainFrame.separator     none   widgetDefault
  13. }
  14.  
  15. option read [file join $::BWIDGET::LIBRARY "lang" "en.rc"]
  16.  
  17. bind all <Key-Tab>       {focus [Widget::focusNext %W]}
  18. bind all <Shift-Key-Tab> {focus [Widget::focusPrev %W]}
  19.