Posted to tcl by stever at Tue Feb 26 21:30:56 GMT 2008view raw

  1. # get the starkir run-able package from
  2. # http://server.linuxsys.net/files/x11lock.bin
  3.  
  4. package require Tk
  5. lappend auto_path path_to_Oakley_combobox
  6. package require combobox
  7. catch {namespace import combobox::*}
  8.  
  9. grid [combobox .combo1]
  10. grid [combobox .combo2]
  11.  
  12. bind .combo1 <FocusOut> {
  13. focus .combo1
  14. }