home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 December / PCWorld_2000-12_cd.bin / Komunikace / Comanche / BWidget-1.2 / init.tcl < prev    next >
Text File  |  2000-11-02  |  949b  |  22 lines
  1.  
  2. if { $tcl_platform(platform) == "unix" } {
  3.     option add *Scrollbar.width         12 widgetDefault
  4.     option add *Scrollbar.borderWidth   1  widgetDefault
  5.     option add *Dialog.separator        1  widgetDefault
  6.     option add *MainFrame.relief        raised widgetDefault
  7.     option add *MainFrame.separator     none   widgetDefault
  8. } else { 
  9.     option add *Listbox.background      white widgetDefault
  10.     option add *ListBox.background      white widgetDefault
  11.     option add *Tree.background         white widgetDefault
  12.     option add *Button.padY             0 widgetDefault
  13.     option add *ButtonBox.padY          0 widgetDefault
  14.     option add *Dialog.padY             0 widgetDefault
  15.     option add *Dialog.anchor           e 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]}
  22.