Changeset 9583 for trunk/Padre-Plugin-Catalyst/lib/Padre/Plugin/Catalyst/NewApp.pm

Timestamp:

12/09/09 19:07:04 (2 years ago)

Author:

garu

Message:

"short names" checkbox only appear if Cat version <= 5.80013

File:

• trunk/Padre-Plugin-Catalyst/lib/Padre/Plugin/Catalyst/NewApp.pm (modified) (1 diff)

trunk/Padre-Plugin-Catalyst/lib/Padre/Plugin/Catalyst/NewApp.pm

@@ -47 +47 @@
             [ 'Wx::DirPickerCtrl',   '_directory_', '',   _T('Pick parent directory')],
         ],
+    );
+    require Catalyst;
+    if ($Catalyst::VERSION < 5.80013) {
+        push @layout,
         [
             [ 'Wx::CheckBox', '_short_', _T('short names'), 0 ],
-        ],
+        ];
+    }
+    push @layout,
         [
             [ 'Wx::Button',     '_ok_',           Wx::wxID_OK     ],
             [ 'Wx::Button',     '_cancel_',       Wx::wxID_CANCEL ],
-        ],
-    );
+        ];
+
     return \@layout;
 }