Added a first cut at a creation wizard.

The next step will be to add an interface to collect initial properties.

Added a first cut at a creation wizard.
The next step will be to add an interface to collect initial properties.
987397ce · Jim Fulton · 3455e9d9 · 987397ce · 987397ce
Commit 987397ce authored May 07, 1999 by Jim Fulton
Hide whitespace changes
Inline Side-by-side

Showing with 100 additions and 2 deletions

lib/python/ZClasses/ZClass.py lib/python/ZClasses/ZClass.py +86 -2

lib/python/ZClasses/addZClass.dtml lib/python/ZClasses/addZClass.dtml +14 -0

No files found.
--- a/lib/python/ZClasses/ZClass.py
+++ b/lib/python/ZClasses/ZClass.py
@@ -101,7 +101,8 @@ class PersistentClass(Base):
 manage_addZClassForm=Globals.HTMLFile(
    'addZClass', globals(), default_class_='OFS.SimpleItem Item')

-def manage_addZClass(self, id, title='', baseclasses=[], REQUEST=None):
+def manage_addZClass(self, id, title='', baseclasses=[],
+                     meta_type='', REQUEST=None):
    """Add a Z Class
    """
    bases=[]
@@ -111,7 +112,28 @@ def manage_addZClass(self, id, title='', baseclasses=[], REQUEST=None):
        else:
            bases.append(getattr(self, b))

-    self._setObject(id, ZClass(id,title,bases))
+    Z=ZClass(id,title,bases)
+    if meta_type: Z._zclass_.meta_type=meta_type
+    self._setObject(id, Z)
+
+    if meta_type:
+        self.manage_addDTMLMethod(
+            id+'_addForm', 
+            id+' constructor input form', 
+            addFormDefault % {'id': id, 'meta_type': meta_type},
+            )
+        self.manage_addDTMLMethod(
+            id+'_add',
+            id+' constructor',
+            addDefault % {'id': id},
+            )
+        self.manage_addPrincipiaFactory(
+            id+'_factory',
+            id+' factory',
+            meta_type,
+            id+'_addForm',
+            )
+    
    if REQUEST is not None: return self.manage_main(self,REQUEST)

 def manage_subclassableClassNames(self):
@@ -415,3 +437,65 @@ def findActions(klass, found):
                found[d['action']]=1
            findActions(b, found)
        except: pass
+
+addFormDefault="""<HTML> 
+<HEAD><TITLE>Add %(meta_type)s</TITLE></HEAD> 
+<BODY BGCOLOR="#FFFFFF" LINK="#000099" VLINK="#555555"> 
+<H2>Add %(meta_type)s</H2> 
+<form action="%(id)s_add"><table> 
+<tr><th>Id</th> 
+    <td><input type=text name=id></td> 
+</tr> 
+<tr><td></td><td><input type=submit value=" Add "></td></tr> 
+</table></form> 
+</body></html> 
+"""
+
+addDefault="""<HTML>
+<HEAD><TITLE>Add %(id)s</TITLE></HEAD>
+<BODY BGCOLOR="#FFFFFF" LINK="#000099" VLINK="#555555">
+
+<!--#comment--> We add the new object by calling the class in
+                a with tag.  Not only does this get the thing
+                added, it adds the new thing's attributes to
+                the DTML name space, so we can call methods
+                to initialize the object.
+<!--#/comment-->
+
+<!--#with "%(id)s(REQUEST['id'], REQUEST)"-->
+
+  <!--#comment-->
+
+     You can ad code that modifies the new instance here.
+
+     For example, if you have a property sheet that you want to update
+     from form values, you can call it here:
+
+       <!--#call "propertysheets.Basic.manage_editProperties(
+                  REQUEST)"-->
+
+  <!--#/comment-->
+
+<!--#/with-->
+
+<!--#comment--> Now we need to return something.  We do this via
+                a redirect so that the URL is correct.
+
+                Unfortunately, the way we do this depends on
+                whether we live in a product or in a class.
+                If we live in a product, we need to use DestinationURL
+                to decide where to go. If we live in a class,
+                DestinationURL won't be available, so we use URL2.
+<!--#/comment-->
+<!--#if DestinationURL-->
+
+ <!--#call "RESPONSE.redirect(
+       DestinationURL+'/manage_workspace')"-->
+
+<!--#else-->
+
+    <!--#call "RESPONSE.redirect(
+           URL2+'/manage_workspace')"-->
+<!--#/if-->
+</body></html>
+"""
--- a/lib/python/ZClasses/addZClass.dtml
+++ b/lib/python/ZClasses/addZClass.dtml
@@ -6,6 +6,7 @@
 <H2>Add ZClass</H2>

 <!--#with "_(selected=[], unselected=[], baseclasses=[], id='', title='',
+             meta_type='',
             all=manage_subclassableClassNames(),
             )"-->
 <!--#with REQUEST-->
@@ -37,6 +38,19 @@
  </TD>
 </TR>

+<TR>
+  <TH ALIGN="LEFT" VALIGN="TOP">
+    <EM>Add list text<sup>1</sup></EM></TH>
+  <TD ALIGN="LEFT" VALIGN="TOP" COLSPAN="3">
+    <INPUT TYPE="TEXT" NAME="meta_type" SIZE="40" 
+       VALUE="<!--#var meta_type-->">
+  </TD>
+</TR>
+<tr><td colspan=5>
+  <EM><sup>1</sup> if you want a creation interface
+                   to be created automatically</EM>
+</td></tr>
+
 <TR>
  <TH ALIGN="LEFT" VALIGN="TOP"></TH>
  <TD ALIGN="LEFT" VALIGN="TOP">