Changeset 18572 for gsdl

Timestamp:

2009-02-20T20:30:15+13:00 (15 years ago)

Author:

kjdon

Message:

changed the type of a couple of options

File:

• gsdl/trunk/perllib/classify/List.pm (modified) (3 diffs)

gsdl/trunk/perllib/classify/List.pm

@@ -44 +44 @@
 }
 
+my $partition_type_list = 
+    [ { 'name' => "per_letter",
+    'desc' => "{List.level_partition.per_letter}" },
+      { 'name' => "constant_size",
+    'desc' => "{List.level_partition.constant_size}" },
+      { 'name' => "none",
+    'desc' => "{List.level_partition.none}" } ];
+      
 
 my $arguments = 
@@ -60 +68 @@
       { 'name' => "partition_type_within_level",
     'desc' => "{GenericList.partition_type_within_level}",
-    'type' => "string",
+    'type' => "enum",
+    'list' => $partition_type_list,
     'deft' => "none" },
       { 'name' => "partition_size_within_level",
     'desc' => "{GenericList.partition_size_within_level}",
-    'type' => "string" },
+    'type' => "int",
+    'range' => "1,",
+    'deft' => "39" },
       { 'name' => "partition_name_length",
     'desc' => "{GenericList.partition_name_length}",
@@ -82 +93 @@
         'desc'     => "{GenericList.desc}",
         'abstract' => "no",
-        'inherits' => "Yes",
+        'inherits' => "yes",
         'args'     => $arguments };