Changeset 437
- Timestamp:
- 12/21/07 13:31:32 (1 year ago)
- Files:
-
- plgtkimageview/IImageTool.xs (modified) (3 diffs)
- plgtkimageview/Makefile.PL (modified) (1 diff)
- plgtkimageview/gtkimageview.typemap (added)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
plgtkimageview/IImageTool.xs
r436 r437 60 60 61 61 svp = hv_fetch (hv, "zoom_rect", 9, FALSE); 62 if (svp) settings->zoom_rect = * SvGdkRectangle (*svp);62 if (svp) settings->zoom_rect = * (GdkRectangle *) SvGdkRectangle (*svp); 63 63 64 64 svp = hv_fetch (hv, "widget_x", 8, FALSE); … … 113 113 gtk_iimage_tool_paint_image (tool, opts, drawable) 114 114 GtkIImageTool * tool 115 DrawSettings * opts115 DrawSettings * opts 116 116 GdkDrawable * drawable 117 117 … … 121 121 int x 122 122 int y 123 plgtkimageview/Makefile.PL
r436 r437 77 77 $depends->add_pm ('ImageView.pm' => '$(INST_LIBDIR)/ImageView.pm'); 78 78 my $cwd = cwd(); 79 system(q(echo "DrawSettings * T_GPERL_GENERIC_WRAPPER" > 'build/perl.typemap'));80 79 $depends->add_typemaps (map {File::Spec->catfile($cwd,$_)} 81 80 'build/gtkimageviewperl.typemap', 82 ' build/perl.typemap');81 'gtkimageview.typemap'); 83 82 84 83 $depends->install (qw(build/gtkimageviewperl-autogen.h
