r5072 - trunk/gnue-appserver/samples

[johannes]

Author: johannes
Date: 2004-02-06 04:41:55 -0600 (Fri, 06 Feb 2004)
New Revision: 5072

Added:
   trunk/gnue-appserver/samples/GNUe_Modules.gfd
Modified:
   trunk/gnue-appserver/samples/GNUe_ClassRepository.gfd
Log:
Rebuilt old GNUe_ClassRepository.gfd so it's now possible to modify and extend
the class repository using forms.


Modified: trunk/gnue-appserver/samples/GNUe_ClassRepository.gfd
===================================================================
--- trunk/gnue-appserver/samples/GNUe_ClassRepository.gfd       2004-02-05 
23:13:16 UTC (rev 5071)
+++ trunk/gnue-appserver/samples/GNUe_ClassRepository.gfd       2004-02-06 
10:41:55 UTC (rev 5072)
@@ -1,97 +1,157 @@
 <?xml version="1.0" encoding="iso8859-1"?>
 
-<!--  GNUe Designer (0.5.1.99)
-      Saved on: 2003-09-19 08:52:47  -->
+<!-- $Id$ -->
 
-<form title="Appserver Modules">
+<form title="GNUe Classrepository">
   <options/>
   <datasource name="dtsGnue_module" connection="appserver" 
table="gnue_module"/>
-  <datasource name="dtsGnue_class" connection="appserver"
-              detaillink="gnue_module" master="dtsGnue_module" 
masterlink="gnue_id" table="gnue_class"/>
+  <datasource name="dtsGnue_class" connection="appserver" table="gnue_class"/>
   <datasource name="dtsGnue_property" connection="appserver"
-              table="gnue_property" master="dtsGnue_class" 
-             masterlink="gnue_id" detaillink="gnue_class"/>
+    table="gnue_property" master="dtsGnue_class" masterlink="gnue_id"
+    detaillink="gnue_class"/>
+  <datasource name="dtsGnue_procedure" connection="appserver"
+    table="gnue_procedure" master="dtsGnue_class" masterlink="gnue_id"
+    detaillink="gnue_class"/>
   <logic>
-    <block name="blkGnue_class" datasource="dtsgnue_class">
-      <field name="fldCGnueId" default="" field="gnue_id" max_length="32"
-             readonly="Y"/>
-      <field name="fldCGnueName" field="gnue_name" max_length="34"/>
-      <field name="fldCGnueComment" field="gnue_comment" max_length="34"/>
-      <field name="fldCGnueModule" field="gnue_module" max_length="32"/>
+    <!-- GNUe Class (Master) -->
+    <block name="blkGnue_class" datasource="dtsgnue_class" rows="1">
+      <field name="fld_class_gnue_id" field="gnue_id" max_length="32"
+        readonly="Y"/>
+      <field name="fld_class_gnue_name" field="gnue_name" max_length="35"/>
+      <field name="fld_class_gnue_comment" field="gnue_comment"
+        max_length="70"/>
+      <field name="fld_class_gnue_module" field="gnue_module"
+        fk_description="gnue_name" fk_key="gnue_id"
+        fk_source="dtsGnue_module"/>
     </block>
-    <block name="blkGnue_module" datasource="dtsgnue_module">
-      <field name="fldMGnueId" default="" field="gnue_id" max_length="32"
-             readonly="Y"/>
-      <field name="fldMGnueName" field="gnue_name" max_length="34"/>
-      <field name="fldMGnueComment" field="gnue_comment" max_length="34"/>
+    <!-- GNUe Property (Detail) -->
+    <block name="blkGnue_property" datasource="dtsGnue_property" rows="3"
+      rowSpacer="1">
+      <field name="fld_prop_gnue_id" field="gnue_id" max_length="32"
+        readonly="Y"/>
+      <field name="fld_prop_gnue_module" field="gnue_module"
+        fk_key="gnue_id" fk_description="gnue_name"
+        fk_source="dtsGnue_module"/>
+      <field name="fld_prop_gnue_class" field="gnue_class" max_length="32"/>
+      <field name="fld_prop_gnue_name" field="gnue_name" max_length="35"/>
+      <field name="fld_prop_gnue_type" field="gnue_type" max_length="35"/>
+      <field name="fld_prop_gnue_length" field="gnue_length" 
typecast="number"/>
+      <field name="fld_prop_gnue_scale" field="gnue_scale" typecast="number"/>
+      <field name="fld_prop_gnue_comment" field="gnue_comment" 
max_length="70"/>
     </block>
-    <block name="blkGnue_property" datasource="dtsgnue_property">
-      <field name="fldGnue_id" field="gnue_id"/>
-      <field name="fldGnue_class" field="gnue_class"/>
-      <field name="fldGnue_module" field="gnue_module"/>
-      <field name="fldGnue_name" field="gnue_name"/>
-      <field name="fldGnue_type" field="gnue_type"/>
-      <field name="fldGnue_length" field="gnue_length" typecast="number"/>
-      <field name="fldGnue_scale" field="gnue_scale" typecast="number"/>
-      <field name="fldGnue_comment" field="gnue_comment"/>
+    <!-- GNUe Procedure (Detail) -->
+    <block name="blkGnue_procedure" datasource="dtsGnue_procedure">
+      <field name="fld_proc_gnue_id" field="gnue_id" max_length="32"
+        readonly="Y"/>
+      <field name="fld_proc_gnue_module" field="gnue_module" fk_key="gnue_id"
+        fk_description="gnue_name" fk_source="dtsGnue_module"/>
+      <field name="fld_proc_gnue_class" field="gnue_class" max_length="32"/>
+      <field name="fld_proc_gnue_name" field="gnue_name" max_length="35"/>
+      <field name="fld_proc_gnue_language" field="gnue_language"
+        max_length="10"/>
+      <field name="fld_proc_gnue_comment" field="gnue_comment" 
max_length="70"/>
+      <field name="fld_proc_gnue_code" field="gnue_code" max_length="2000"/>
     </block>
   </logic>
-  <layout xmlns:Char="GNUe:Layout:Char" Char:height="12" Char:width="91">
-    <page name="Page1">
-      <label name="lblGnueComment" Char:height="1" Char:width="3" Char:x="2"
-             Char:y="2" text="Id:"/>
-      <entry name="entGnueId" Char:height="1" Char:width="32" Char:x="11"
-             Char:y="2" block="blkGnue_module" field="fldMGnueId"/>
-      <label name="lblGnueComment" Char:height="1" Char:width="5" Char:x="2"
-             Char:y="3" text="Name:"/>
-      <entry name="entGnueName" Char:height="1" Char:width="32" Char:x="11"
-             Char:y="3" block="blkGnue_module" field="fldMGnueName"/>
-      <label name="lblGnueComment" Char:height="1" Char:width="8" Char:x="2"
-             Char:y="4" text="Comment:"/>
-      <entry name="entGnueComment" Char:height="1" Char:width="32" Char:x="11"
-             Char:y="4" block="blkGnue_module" field="fldMGnueComment"/>
-      <label name="lblGnueModule3" Char:height="1" Char:width="3" Char:x="2"
-             Char:y="8" text="Id:"/>
-      <entry name="entGnueModule" Char:height="1" Char:width="32" Char:x="11"
-             Char:y="8" block="blkGnue_class" field="fldCGnueId"/>
-      <label name="lblGnueModule1" Char:height="1" Char:width="5" Char:x="2"
-             Char:y="9" text="Name:"/>
-      <entry name="entGnueName" Char:height="1" Char:width="32" Char:x="11"
-             Char:y="9" block="blkGnue_class" field="fldCGnueName"/>
-      <label name="lblGnueModule2" Char:height="1" Char:width="8" Char:x="2"
-             Char:y="10" text="Comment:"/>
-      <entry name="entGnueComment" Char:height="1" Char:width="32" Char:x="11"
-             Char:y="10" block="blkGnue_class" field="fldCGnueComment"/>
-      <box name="Box14" Char:height="6" Char:width="45" Char:x="0" Char:y="0"
-           label="GNUe Modules"/>
-      <box name="Box17" Char:height="6" Char:width="45" Char:x="0" Char:y="6"
-           label="GNUe Classes"/>
-      <label name="lblGnue_id" Char:height="1" Char:width="3" Char:x="47"
-             Char:y="2" text="Id:"/>
-      <entry name="ntryGnue_id" Char:height="1" Char:width="30" Char:x="57"
-             Char:y="2" block="blkGnue_property" field="fldGnue_id"/>
-      <label name="lblGnue_name" Char:height="1" Char:width="5" Char:x="47"
-             Char:y="3" text="Name:"/>
-      <entry name="ntryGnue_name" Char:height="1" Char:width="30" Char:x="57"
-             Char:y="3" block="blkGnue_property" field="fldGnue_name"/>
-      <label name="lblGnue_type" Char:height="1" Char:width="5" Char:x="47"
-             Char:y="4" text="Type:"/>
-      <entry name="ntryGnue_type" Char:height="1" Char:width="30" Char:x="57"
-             Char:y="4" block="blkGnue_property" field="fldGnue_type"/>
-      <label name="lblGnue_length" Char:height="1" Char:width="7" Char:x="47"
-             Char:y="5" text="Length:"/>
-      <entry name="ntryGnue_length" Char:height="1" Char:width="30"
-             Char:x="57" Char:y="5" block="blkGnue_property" 
field="fldGnue_length"/>
-      <label name="lblGnue_scale" Char:height="1" Char:width="6" Char:x="47"
-             Char:y="6" text="Scale:"/>
-      <entry name="ntryGnue_scale" Char:height="1" Char:width="30" Char:x="57"
-             Char:y="6" block="blkGnue_property" field="fldGnue_scale"/>
-      <label name="lblGnue_comment" Char:height="1" Char:width="8" Char:x="47"
-             Char:y="7" text="Comment:"/>
-      <entry name="ntryGnue_comment" Char:height="1" Char:width="30"
-             Char:x="57" Char:y="7" block="blkGnue_property" 
field="fldGnue_comment"/>
-      <box name="Box1" Char:height="9" Char:width="44" Char:x="46" Char:y="0"
-           label="GNUe Properties"/>
+  <layout xmlns:Char="GNUe:Layout:Char" Char:height="25" Char:width="80">
+    <page name="Classes">
+      <!-- ============================================================== -->
+      <!-- GNUe Classes                                                   -->
+      <!-- ============================================================== -->
+      <!-- gnue_class.gnue_module -->
+      <label name="lbl_class_gnue_module" Char:height="1" Char:width="8"
+        Char:x="1" Char:y="1" text="Module :"/>
+      <entry name="ddn_class_gnue_module" Char:height="1" Char:width="37"
+        Char:x="10" Char:y="1" block="blkGnue_class"
+        field="fld_class_gnue_module" label="" style="dropdown"/>
+      <!-- gnue_class.gnue_name -->
+      <label name="lbl_class_gnue_name" Char:height="1" Char:width="8"
+        Char:x="1" Char:y="2" text="Name   :"/>
+      <entry name="ent_class_gnue_name" Char:height="1" Char:width="37"
+        Char:x="10" Char:y="2" block="blkGnue_class"
+        field="fld_class_gnue_name" label=""/>
+      <!-- gnue_class.gnue_comment -->
+      <label name="lbl_class_gnue_comment" Char:height="1" Char:width="8"
+        Char:x="1" Char:y="3" text="Comment:"/>
+      <entry name="ent_class_gnue_comment" Char:height="1" Char:width="69"
+        Char:x="10" Char:y="3" block="blkGnue_class"
+        field="fld_class_gnue_comment" label=""/>
+      <!-- ============================================================== -->
+      <!-- GNUe Properties                                                -->
+      <!-- ============================================================== -->
+      <box name="Property_Box" Char:height="10" Char:width="80" Char:x="0"
+        Char:y="4" label="Properties"/>
+      <!-- gnue_property.gnue_module -->
+      <label name="lbl_prop_gnue_module" Char:height="1" Char:width="6"
+        Char:x="13" Char:y="5" text="Module"/>
+      <entry name="ddn_prop_gnue_module" Char:height="1" Char:width="17"
+        Char:x="2" Char:y="7" block="blkGnue_property"
+        field="fld_prop_gnue_module" label="" style="dropdown"/>
+      <!-- gnue_property.gnue_name -->
+      <label name="lbl_prop_gnue_name" Char:height="1" Char:width="4"
+        Char:x="21" Char:y="5" text="Name"/>
+      <entry name="ent_prop_gnue_name" Char:height="1" Char:width="17"
+        Char:x="21" Char:y="7" block="blkGnue_property"
+        field="fld_prop_gnue_name" label=""/>
+      <!-- gnue_property.gnue_type -->
+      <label name="lbl_prop_gnue_type" Char:height="1" Char:width="4"
+        Char:x="39" Char:y="5" text="Type"/>
+      <entry name="ent_prop_gnue_type" Char:height="1" Char:width="25"
+        Char:x="39" Char:y="7" block="blkGnue_property"
+        field="fld_prop_gnue_type" label=""/>
+      <!-- gnue_property.gnue_length -->
+      <label name="lbl_prop_gnue_length" Char:height="1" Char:width="6"
+        Char:x="65" Char:y="5" text="Length"/>
+      <entry name="ent_prop_gnue_length" Char:height="1" Char:width="6"
+        Char:x="65" Char:y="7" block="blkGnue_property"
+        field="fld_prop_gnue_length" label=""/>
+      <!-- gnue_property.gnue_scale -->
+      <label name="lbl_prop_gnue_scale" Char:height="1" Char:width="5"
+        Char:x="72" Char:y="5" text="Scale"/>
+      <entry name="ent_prop_gnue_scale" Char:height="1" Char:width="6"
+        Char:x="72" Char:y="7" block="blkGnue_property"
+        field="fld_prop_gnue_scale" label=""/>
+      <!-- gnue_property.gnue_comment -->
+      <label name="lbl_prop_gnue_comment" Char:height="1" Char:width="7"
+        Char:x="21" Char:y="6" text="Comment"/>
+      <entry name="ent_prop_gnue_comment" Char:height="1" Char:width="57"
+        Char:x="21" Char:y="8" block="blkGnue_property"
+        field="fld_prop_gnue_comment" label=""/>
+      <!-- ============================================================== -->
+      <!-- GNUe Procedures                                                -->
+      <!-- ============================================================== -->
+      <box name="Procedure Box" Char:height="12" Char:width="80" Char:x="0"
+        Char:y="13" label="Procedures"/>
+      <!-- gnue_procedure.gnue_module -->
+      <label name="lbl_proc_gnue_module" Char:height="1" Char:width="6"
+        Char:x="13" Char:y="14" text="Module"/>
+      <entry name="ddn_proc_gnue_module" Char:height="1" Char:width="17"
+        Char:x="2" Char:y="15" block="blkGnue_procedure"
+        field="fld_proc_gnue_module" label="" style="dropdown" rows="3"/>
+      <!-- gnue_procedure.gnue_name -->
+      <label name="lbl_proc_gnue_name" Char:height="1" Char:width="4"
+        Char:x="21" Char:y="14" text="Name"/>
+      <entry name="ent_proc_gnue_name" Char:height="1" Char:width="17"
+        Char:x="21" Char:y="15" block="blkGnue_procedure"
+        field="fld_proc_gnue_name" label="" rows="3"/>
+      <!-- gnue_procedure.gnue_language -->
+      <label name="lbl_proc_gnue_language" Char:height="1" Char:width="8"
+        Char:x="39" Char:y="14" text="Language"/>
+      <entry name="ent_proc_gnue_language" Char:height="1" Char:width="10"
+        Char:x="39" Char:y="15" block="blkGnue_procedure"
+        field="fld_proc_gnue_language" label="" rows="3"/>
+      <!-- gnue_procedure.gnue_comment -->
+      <label name="lbl_proc_gnue_comment" Char:height="1" Char:width="7"
+        Char:x="50" Char:y="14" text="Comment"/>
+      <entry name="ent_proc_gnue_comment" Char:height="1" Char:width="28"
+        Char:x="50" Char:y="15" block="blkGnue_procedure"
+        field="fld_proc_gnue_comment" label="" rows="3"/>
+      <!-- gnue_procedure.gnue_code -->
+      <label name="lbl_proc_gnue_code" Char:height="1" Char:width="4"
+        Char:x="2" Char:y="18" text="Code"/>
+      <entry name="ent_proc_gnue_code" Char:height="6" Char:width="76"
+        Char:x="2" Char:y="19" block="blkGnue_procedure"
+        field="fld_proc_gnue_code" label=""/>
     </page>
   </layout>
 </form>


Property changes on: trunk/gnue-appserver/samples/GNUe_ClassRepository.gfd
___________________________________________________________________
Name: svn:keywords
   + Id

Added: trunk/gnue-appserver/samples/GNUe_Modules.gfd
===================================================================
--- trunk/gnue-appserver/samples/GNUe_Modules.gfd       2004-02-05 23:13:16 UTC 
(rev 5071)
+++ trunk/gnue-appserver/samples/GNUe_Modules.gfd       2004-02-06 10:41:55 UTC 
(rev 5072)
@@ -0,0 +1,38 @@
+<?xml version="1.0" encoding="iso8859-1"?>
+
+<!-- $Id$ -->
+
+<form title="GNUe Modules">
+  <options/>
+  <datasource name="dtsGnue_module" connection="appserver" 
table="gnue_module"/>
+  <logic>
+    <block name="blkGnue_module" datasource="dtsGnue_module" rows="1">
+      <field name="fld_Module_gnue_id" field="gnue_id" max_length="32"
+        readonly="Y"/>
+      <field name="fld_Module_gnue_name" field="gnue_name" max_length="35"/>
+      <field name="fld_Module_gnue_comment" field="gnue_comment"
+        max_length="70"/>
+    </block>
+  </logic>
+  <layout xmlns:Char="GNUe:Layout:Char" Char:height="7" Char:width="48">
+    <page name="Modules">
+      <!-- gnue_module.gnue_id -->
+      <label name="lModule_gnue_id" Char:height="1" Char:width="8" Char:x="1"
+        Char:y="2" text="Id:"/>
+      <entry name="eModule_gnue_id" Char:height="1" Char:width="35" Char:x="10"
+        Char:y="2" block="blkGnue_module" field="fld_Module_gnue_id" label=""/>
+      <!-- gnue_module.gnue_name -->
+      <label name="lModule_gnue_name" Char:height="1" Char:width="8" Char:x="1"
+        Char:y="3" text="Name:"/>
+      <entry name="eModule_gnue_name" Char:height="1" Char:width="35"
+        Char:x="10" Char:y="3" block="blkGnue_module"
+        field="fld_Module_gnue_name" label=""/> 
+      <!-- gnue_module.gnue_comment -->
+      <label name="lModule_gnue_comment" Char:height="1" Char:width="8"
+        Char:x="1" Char:y="4" text="Comment:"/>
+      <entry name="eModule_gnue_comment" Char:height="1" Char:width="35"
+        Char:x="10" Char:y="4" block="blkGnue_module"
+        field="fld_Module_gnue_comment" label=""/> 
+    </page>
+  </layout>
+</form>


Property changes on: trunk/gnue-appserver/samples/GNUe_Modules.gfd
___________________________________________________________________
Name: svn:keywords
   + Id