mostly canvas pod hacking

degtyarev-dm · Aug 17, 2011 · 588d605 · 588d605
1 parent 4910b52
commit 588d605
Show file tree

Hide file tree

Showing 6 changed files with 496 additions and 113 deletions.
diff --git a/Build.PL b/Build.PL
@@ -17,13 +17,14 @@ unless (Alien::IUP->havelib( qw/iup im cd/ )) {
   exit 0;
 }
 
-$cflags .= ' -DHAVELIB_IUPCD'       if Alien::IUP->havelib('iupcd');
-$cflags .= ' -DHAVELIB_IUPIM'       if Alien::IUP->havelib('iupim');
-$cflags .= ' -DHAVELIB_IUPGL'       if Alien::IUP->havelib('iupgl');
-$cflags .= ' -DHAVELIB_IUPOLE'      if Alien::IUP->havelib('iupole');
-$cflags .= ' -DHAVELIB_IUPCONTROLS' if Alien::IUP->havelib('iupcontrols');
-$cflags .= ' -DHAVELIB_IUP_PPLOT'   if Alien::IUP->havelib('iup_pplot');
-$cflags .= ' -DHAVELIB_IUPIMGLIB'   if Alien::IUP->havelib('iupimglib');
+$cflags .= ' -DHAVELIB_IUPCD'         if Alien::IUP->havelib('iupcd');
+$cflags .= ' -DHAVELIB_IUPIM'         if Alien::IUP->havelib('iupim');
+$cflags .= ' -DHAVELIB_IUPGL'         if Alien::IUP->havelib('iupgl');
+$cflags .= ' -DHAVELIB_IUPOLE'        if Alien::IUP->havelib('iupole');
+$cflags .= ' -DHAVELIB_IUPCONTROLS'   if Alien::IUP->havelib('iupcontrols');
+$cflags .= ' -DHAVELIB_IUP_PPLOT'     if Alien::IUP->havelib('iup_pplot');
+$cflags .= ' -DHAVELIB_IUPIMGLIB'     if Alien::IUP->havelib('iupimglib');
+$cflags .= ' -DHAVELIB_CDCONTEXTPLUS' if Alien::IUP->havelib('cdcontextplus');
 
 my $class = 'Module::Build';
 if (-d '.git') { #adding some custom actions relevant only for module development

diff --git a/TODO b/TODO
@@ -35,8 +35,7 @@
 - beware: (IUP_DEFAULT related) sub returns value even without explicit return
 
 ######## POD/IMPORTANT: finish doc - espec. IUP::Manual::*
-- finish pod for: IUP::Canvas::*
-- maybe add pod for: IUP::Canvas::InternalServerImage
+- maybe add pod for: IUP::Canvas::Internal*
 - Cleanup first (in this order):
   - I::M::Elements.pod
   - I::M::Callbacks.pod