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 / regexpviewer / gridinfo.tcl < prev    next >
Encoding:
Text File  |  2004-03-23  |  432 b   |  24 lines
  1. # gridinfo.tcl --
  2. #
  3. # Provides helper routines to get the column and row of a particular
  4. # widget.
  5. #
  6. # $Id: gridinfo.tcl,v 1.1.1.1 2004/03/23 21:04:21 davidw Exp $
  7.  
  8. package provide gridinfo 0.1
  9.  
  10. namespace eval gridinfo {
  11.     namespace export row column
  12. }
  13.  
  14. proc gridinfo::row {w} {
  15.     array set info [grid info $w]
  16.     return $info(-row)
  17. }
  18.  
  19. proc gridinfo::column {w} {
  20.     array set info [grid info $w]
  21.     return $info(-column)
  22. }
  23.  
  24.