home *** CD-ROM | disk | FTP | other *** search
/ Australian Personal Computer 2004 July / APC0407D2.iso / workshop / apache / files / ActivePerl-5.8.3.809-MSWin32-x86.msi / _f7e187d639c24b883ccdb78ceba3186b < prev    next >
Encoding:
Text File  |  2004-02-02  |  503 b   |  18 lines
  1. # NOTE: Derived from blib\lib\Tk\Wm.pm.
  2. # Changes made here will be lost when autosplit is run again.
  3. # See AutoSplit.pm.
  4. package Tk::Wm;
  5.  
  6. #line 84 "blib\lib\Tk\Wm.pm (autosplit into blib\lib\auto\Tk\Wm\AnchorAdjust.al)"
  7. sub AnchorAdjust
  8. {
  9.  my ($anchor,$X,$Y,$w,$h) = @_;
  10.  $anchor = 'c' unless (defined $anchor);
  11.  $Y += ($anchor =~ /s/) ? $h : ($anchor =~ /n/) ? 0 : $h/2;
  12.  $X += ($anchor =~ /e/) ? $w : ($anchor =~ /w/) ? 0 : $w/2;
  13.  return ($X,$Y);
  14. }
  15.  
  16. # end of Tk::Wm::AnchorAdjust
  17. 1;
  18.