home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 May / PCWorld_2002-05_cd.bin / Software / TemaCD / activetcltk / ActiveTcl8.3.4.1-8.win32-ix86.exe / ActiveTcl8.3.4.1-win32-ix86 / lib / bwidget1.3.0 / init.tcl < prev    next >
Encoding:
Text File  |  2001-10-22  |  883 b   |  21 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 *Scrollbar.width         12 widgetDefault
  11.     option add *Scrollbar.borderWidth   1  widgetDefault
  12.     option add *Dialog.separator        1  widgetDefault
  13.     option add *MainFrame.relief        raised widgetDefault
  14.     option add *MainFrame.separator     none   widgetDefault
  15. }
  16.  
  17. option read [file join $::BWIDGET::LIBRARY "lang" "en.rc"]
  18.  
  19. bind all <Key-Tab>       {focus [Widget::focusNext %W]}
  20. bind all <Shift-Key-Tab> {focus [Widget::focusPrev %W]}
  21.