Changeset 9583

Timestamp:

12/09/09 19:07:04 (9 months ago)

Author:

garu

Message:

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

Files:

• 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;
 }