home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 3 / CD ACTUAL 3.iso / linux / incoming / jstools-.6v3 / jstools- / jstools-tk3.6v3.0 / lib / jtkversion.tcl < prev    next >
Encoding:
Text File  |  1995-02-05  |  1.5 KB  |  60 lines
  1. # jtkversion.tcl - procedures to deal with multiple Tk versions
  2. # 
  3. # Copyright 1995 by Jay Sekora.  All rights reserved, except 
  4. # that this file may be freely redistributed in whole or in part 
  5. # for non¡profit, noncommercial use.
  6.  
  7. ######################################################################
  8. # j:tk4 - perform an action if running under Tk 4.0 or greater
  9. ######################################################################
  10.  
  11. proc j:tk4 { {command ""} } {
  12.   global tk_version
  13.   
  14.   set major_version [lindex [split $tk_version .] 0]
  15.   
  16.   if {$major_version >= 4} {
  17.     if [string length $command] {
  18.       uplevel 1 [list eval $command]
  19.     }
  20.     return 1
  21.   } else {
  22.     return 0
  23.   }
  24. }
  25.  
  26. ######################################################################
  27. # j:tk3 - perform an action if running under Tk 3.X or earlier
  28. ######################################################################
  29.  
  30. proc j:tk3 { {command ""} } {
  31.   global tk_version
  32.   
  33.   set major_version [lindex [split $tk_version .] 0]
  34.   
  35.   if {$major_version <= 3} {
  36.     if [string length $command] {
  37.       uplevel 1 [list eval $command]
  38.     }
  39.     return 1
  40.   } else {
  41.     return 0
  42.   }
  43. }
  44.  
  45. ######################################################################
  46. # j:current_focus - return current focus (assumes only one display!)
  47. ######################################################################
  48.  
  49. proc j:current_focus { {w .} } {
  50.   global tk_version
  51.   
  52.   set major_version [lindex [split $tk_version .] 0]
  53.   
  54.   if {$major_version <= 3} {
  55.     return [focus]
  56.   } else {
  57.     return [focus -lastfor $w]
  58.   }
  59. }
  60.