r6501 - trunk/gnue-appserver/samples

[johannes]

Author: johannes
Date: 2004-10-15 05:05:33 -0500 (Fri, 15 Oct 2004)
New Revision: 6501

Modified:
   trunk/gnue-appserver/samples/sample-C.gld
   trunk/gnue-appserver/samples/sample-de.gld
   trunk/gnue-appserver/samples/sample.gcd
   trunk/gnue-appserver/samples/sample.gfd
Log:
Added some triggers to sample-classes


Modified: trunk/gnue-appserver/samples/sample-C.gld
===================================================================
--- trunk/gnue-appserver/samples/sample-C.gld   2004-10-15 10:02:56 UTC (rev 
6500)
+++ trunk/gnue-appserver/samples/sample-C.gld   2004-10-15 10:05:33 UTC (rev 
6501)
@@ -23,4 +23,5 @@
   </class>
 
   <message name="nameis">The name of this person is %s.</message>
+  <message name="maxchildren">Person has more than 30 children: %d</message>
 </module>

Modified: trunk/gnue-appserver/samples/sample-de.gld
===================================================================
--- trunk/gnue-appserver/samples/sample-de.gld  2004-10-15 10:02:56 UTC (rev 
6500)
+++ trunk/gnue-appserver/samples/sample-de.gld  2004-10-15 10:05:33 UTC (rev 
6501)
@@ -13,8 +13,8 @@
     <property name="country" pos="300" label="Land"/>
     <property name="zip" pos="400" label="PLZ"/>
     <property name="city" pos="500" label="Stadt"/>
-    <property name="children" pos="600" label="Kinder"/>
-    <property name="weight" pos="700" label="Gewicht"/>
+    <property name="children" pos="600" label="Kinder" page="Privat"/>
+    <property name="weight" pos="700" label="Gewicht" page="Privat"/>
     <property name="born" pos="800" label="Geburtsdatum"/>
     <property name="lastmeeting" pos="900" label="Letzte Sitzung"/>
     <property name="meettime" pos="1000" label="Sitzungszeit"/>
@@ -23,4 +23,5 @@
   </class>
 
   <message name="nameis">Der Name dieser Person ist %s.</message>
+  <message name="maxchildren">Es wurden %d Kinder angegeben, max. 30 
erlaubt</message>
 </module>

Modified: trunk/gnue-appserver/samples/sample.gcd
===================================================================
--- trunk/gnue-appserver/samples/sample.gcd     2004-10-15 10:02:56 UTC (rev 
6500)
+++ trunk/gnue-appserver/samples/sample.gcd     2004-10-15 10:05:33 UTC (rev 
6501)
@@ -49,6 +49,16 @@
       abort (message ('nameis') % self.address_name)
     </procedure>
 
+    <procedure name="OnInit">
+      self.children = 0
+      self.human    = True
+    </procedure>
+
+    <procedure name="OnValidate">
+      if self.address_children > 30:
+        abort (message ('maxchildren') % self.children)
+    </procedure>
+
     <procedure name="test" comment="Simple procedure to test Appserver">
       <![CDATA[
       if self.address_name [0] == "(":

Modified: trunk/gnue-appserver/samples/sample.gfd
===================================================================
--- trunk/gnue-appserver/samples/sample.gfd     2004-10-15 10:02:56 UTC (rev 
6500)
+++ trunk/gnue-appserver/samples/sample.gfd     2004-10-15 10:05:33 UTC (rev 
6501)
@@ -55,7 +55,7 @@
   <datasource name="dtsMCountry" connection="appserver"
     table="address_country"/>
   <trigger name="showRecord" type="NAMED"><![CDATA[
-    retval = dtsPerson.call("address_show", {})
+    retval = blkPerson.call ("address_show", {})
     if retval is not None:
       print "retval =", retval
   ]]></trigger>