SecuritySNACCRuntime/tcl-lib/tkuti.tcl

   1 # file: tkuti.tcl
   2 # miscellaneous Tk utilities.
   3 #
   4 # $Header: /cvs/Darwin/Security/SecuritySNACCRuntime/tcl-lib/tkuti.tcl,v 1.1.1.1 2001/05/18 23:14:11 mb Exp $
   5 # $Log: tkuti.tcl,v $
   6 # Revision 1.1.1.1  2001/05/18 23:14:11  mb
   7 # Move from private repository to open source repository
   8 #
   9 # Revision 1.1.1.1  1999/03/16 18:06:56  aram
  10 # Originals from SMIME Free Library.
  11 #
  12 # Revision 1.1  1997/01/01 23:12:03  rj
  13 # first check-in
  14 #
  15
  16 proc getpos {w xn yn} \
  17 {
  18   upvar $xn x $yn y
  19   set geom [wm geometry $w]
  20   scan $geom {%dx%d+%d+%d} w h x y
  21 }