← Back to branch summary

~ubuntu-branches/ubuntu/natty/perl-tk/natty

« back to all changes in this revision

Viewing changes to TixPixmap/Pixmap.xs

  • Committer: Bazaar Package Importer
  • Author(s): Stephen Zander
  • Date: 2004-03-14 13:54:44 UTC
  • mfrom: (1.1.1 upstream)
  • Revision ID: james.westby@ubuntu.com-20040314135444-prc09u2or4dbr3to
Tags: 1:800.025-2
http://bugs.debian.org/237942
Add xlibs-dev to Build-Depends:,
Closes: #237942

Show diffs side-by-side

added added

removed removed

Lines of Context:
TixPixmap/Pixmap.xs
1
1
/*
2
 
  Copyright (c) 1995-1997 Nick Ing-Simmons. All rights reserved.
 
2
  Copyright (c) 1995-2003 Nick Ing-Simmons. All rights reserved.
3
3
  This program is free software; you can redistribute it and/or
4
4
  modify it under the same terms as Perl itself.
5
5
*/
39
39
   Tcl_Interp *Et_Interp = mainInfo->interp;
40
40
   if (Et_Interp)
41
41
    {
42
 
#ifdef WIN32
 
42
#if defined(WIN32) && !defined(__GNUC__)
43
43
#pragma warning(disable: 4305)
44
44
#endif
45
45
#define UNSIGNED_CHAR unsigned char
61
61
BOOT:
62
62
 {
63
63
  IMPORT_VTABLES;
64
 
  TixVptr     =     (TixVtab *) SvIV(perl_get_sv("Tk::TixVtab",5));    
65
 
  TixintVptr  =  (TixintVtab *) SvIV(perl_get_sv("Tk::TixintVtab",5));  
66
 
  TiximgxpmVptr  =  (TiximgxpmVtab *) SvIV(perl_get_sv("Tk::TiximgxpmVtab",5));  
 
64
  TixVptr     =     INT2PTR(TixVtab *, SvIV(perl_get_sv("Tk::TixVtab",5)));    
 
65
  TixintVptr  =  INT2PTR(TixintVtab *, SvIV(perl_get_sv("Tk::TixintVtab",5)));
 
66
  TiximgxpmVptr  =  INT2PTR(TiximgxpmVtab *, SvIV(perl_get_sv("Tk::TiximgxpmVtab",5)));
67
67
 
68
68
  Tk_CreateImageType(&tixPixmapImageType);
69
69
 }