← Back to branch summary

~ubuntu-branches/ubuntu/lucid/perl-tk/lucid

« back to all changes in this revision

Viewing changes to Tk.xs

  • Committer: Bazaar Package Importer
  • Author(s): Colin Tuckley
  • Date: 2008-02-15 13:56:59 UTC
  • mfrom: (1.1.3 upstream) (4.1.1 hardy)
  • Revision ID: james.westby@ubuntu.com-20080215135659-ru2oqlykuju20fav
Tags: 1:804.028-1
http://bugs.debian.org/463080
http://bugs.debian.org/411129
* New Upstream Release (Closes: #463080).
* Update to Debhelper v5.
* Build with XFT=1 (Closes: #411129).

Show diffs side-by-side

added added

removed removed

Lines of Context:
Tk.xs
215
215
    }
216
216
   if (SvTRUE(ERRSV))
217
217
    {
218
 
     warn("%_",ERRSV);
 
218
     warn("%"SVf,ERRSV);
219
219
     sv_setsv(hook,&PL_sv_undef);
220
220
    }
221
221
   else
847
847
Tk_Window       win
848
848
int             x
849
849
int             y
 
850
CODE:
 
851
 { 
 
852
  TkWindow *winPtr = (TkWindow *) win;
 
853
  if (!(winPtr->flags & TK_TOP_LEVEL))
 
854
   {
 
855
    croak("Tk_MoveToplevelWindow called with non-toplevel window");
 
856
   }
 
857
  Tk_MoveToplevelWindow(win,x,y);
 
858
 }
850
859
 
851
860
void
852
861
Tk_MoveResizeWindow(win,x,y,width,height)