~ubuntu-branches/ubuntu/raring/perl-tk/raring

« back to all changes in this revision

Viewing changes to pTk/mTk/generic/tkEvent.c

  • 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
* 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:
986
986
                TkWmProtocolEventProc(winPtr, eventPtr);
987
987
            } else {
988
988
                /* Perl/Tk had/has its own hook for this */
989
 
                /* XXX XXX patch from http://rt.cpan.org/NoAuth/Bug.html?id=16053, manually added by iblech XXX XXX */
990
 
                if (eventPtr && winPtr && winPtr->mainPtr) {
991
 
                  LangClientMessage(winPtr->mainPtr->interp, (Tk_Window) winPtr, eventPtr);
 
989
                if (eventPtr && winPtr && winPtr->mainPtr) {
 
990
                    LangClientMessage(winPtr->mainPtr->interp, (Tk_Window) winPtr, eventPtr);
992
991
                }
993
992
 
994
993
                /*