[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
r5953 - in trunk/gnue-packages/base/util: class doc forms
From: |
kilo |
Subject: |
r5953 - in trunk/gnue-packages/base/util: class doc forms |
Date: |
Thu, 8 Jul 2004 07:46:30 -0500 (CDT) |
Author: kilo
Date: 2004-07-08 07:46:29 -0500 (Thu, 08 Jul 2004)
New Revision: 5953
Added:
trunk/gnue-packages/base/util/forms/CDict.gfd
Removed:
trunk/gnue-packages/base/util/forms/cdict.gpd
trunk/gnue-packages/base/util/forms/cdictCode.gfd
Modified:
trunk/gnue-packages/base/util/class/cdict.gcd
trunk/gnue-packages/base/util/doc/cdict.dia
trunk/gnue-packages/base/util/doc/cdict.png
trunk/gnue-packages/base/util/forms/cdictDescr.gfd
Log:
minor corrections in code dictionary; new editor forms
Modified: trunk/gnue-packages/base/util/class/cdict.gcd
===================================================================
--- trunk/gnue-packages/base/util/class/cdict.gcd 2004-07-07 22:09:46 UTC
(rev 5952)
+++ trunk/gnue-packages/base/util/class/cdict.gcd 2004-07-08 12:46:29 UTC
(rev 5953)
@@ -6,27 +6,26 @@
In that case they should be handled in their own problem space, not in a code
dictionary.
DESCR table looks like
-001 Name prefixes 3
-002 Name suffixes 3
-003 Units 4
+Name prefixes 3
+Name suffixes 3
+Units 4
...
CODE table looks like
-001 001 Mr.
-001 002 Mrs.
-001 003 Dr.
-002 001 Jr.
-002 002 Sr.
-002 003 III.
-003 0001 Meter
-003 0002 Secundum
-003 0003 Amper
-003 0004 Newton
+0100...0001 001 Mr.
+0100...0001 002 Mrs.
+0100...0001 003 Dr.
+0100...0002 001 Jr.
+0100...0002 002 Sr.
+0100...0002 003 III.
+0100...0003 0001 Meter
+0100...0003 0002 Secundum
+0100...0003 0003 Amper
+0100...0003 0004 Newton
...
-->
<module name="CDICT" comment="Handles code-name pairs">
<class name="Descr" comment="Code types and their datae">
- <property name="type" type="string(3)" nullable="False"
comment="Code type (identity), 3-digit number in string: 001, 002, etc" />
<property name="name" type="string(100)" nullable="False"
comment="Printable name of the code type" />
<property name="length" type="number(2)" nullable="False"
comment="Max length of stored code" />
</class>
Modified: trunk/gnue-packages/base/util/doc/cdict.dia
===================================================================
--- trunk/gnue-packages/base/util/doc/cdict.dia 2004-07-07 22:09:46 UTC (rev
5952)
+++ trunk/gnue-packages/base/util/doc/cdict.dia 2004-07-08 12:46:29 UTC (rev
5953)
@@ -69,7 +69,7 @@
<dia:point val="31,26"/>
</dia:attribute>
<dia:attribute name="obj_bb">
- <dia:rectangle val="30.95,24.95;49.05,34.05"/>
+ <dia:rectangle val="30.95,24.95;49.05,33.05"/>
</dia:attribute>
<dia:attribute name="elem_corner">
<dia:point val="31,26"/>
@@ -78,7 +78,7 @@
<dia:real val="18"/>
</dia:attribute>
<dia:attribute name="elem_height">
- <dia:real val="8"/>
+ <dia:real val="7"/>
</dia:attribute>
<dia:attribute name="line_colour">
<dia:color val="#000000"/>
@@ -263,7 +263,7 @@
<dia:point val="41,29"/>
</dia:attribute>
<dia:attribute name="obj_bb">
- <dia:rectangle val="40.95,28.95;47.95,33.45"/>
+ <dia:rectangle val="40.95,28.95;47.95,32.65"/>
</dia:attribute>
<dia:attribute name="elem_corner">
<dia:point val="41,29"/>
@@ -272,7 +272,7 @@
<dia:real val="6.9"/>
</dia:attribute>
<dia:attribute name="elem_height">
- <dia:real val="4.4"/>
+ <dia:real val="3.6"/>
</dia:attribute>
<dia:attribute name="name">
<dia:string>#Descr#</dia:string>
@@ -349,29 +349,6 @@
<dia:attribute name="attributes">
<dia:composite type="umlattribute">
<dia:attribute name="name">
- <dia:string>#type#</dia:string>
- </dia:attribute>
- <dia:attribute name="type">
- <dia:string>#string(3)#</dia:string>
- </dia:attribute>
- <dia:attribute name="value">
- <dia:string>##</dia:string>
- </dia:attribute>
- <dia:attribute name="comment">
- <dia:string>#Code type (identity), 3-digit number in string:
001, 002, etc#</dia:string>
- </dia:attribute>
- <dia:attribute name="visibility">
- <dia:enum val="0"/>
- </dia:attribute>
- <dia:attribute name="abstract">
- <dia:boolean val="false"/>
- </dia:attribute>
- <dia:attribute name="class_scope">
- <dia:boolean val="false"/>
- </dia:attribute>
- </dia:composite>
- <dia:composite type="umlattribute">
- <dia:attribute name="name">
<dia:string>#name#</dia:string>
</dia:attribute>
<dia:attribute name="type">
Modified: trunk/gnue-packages/base/util/doc/cdict.png
===================================================================
(Binary files differ)
Added: trunk/gnue-packages/base/util/forms/CDict.gfd
===================================================================
--- trunk/gnue-packages/base/util/forms/CDict.gfd 2004-07-07 22:09:46 UTC
(rev 5952)
+++ trunk/gnue-packages/base/util/forms/CDict.gfd 2004-07-08 12:46:29 UTC
(rev 5953)
@@ -0,0 +1,49 @@
+<?xml version="1.0" encoding="iso8859-1"?>
+
+<!-- GNUe-Designer (0.5.4.99)
+ Saved on: 2004-07-08 13:34:01 -->
+
+<form title="Code dictionary">
+ <datasource name="dtsCDICT_Code" connection="appserver" table="CDICT_Code"/>
+ <datasource name="dtsCDICT_Descr" connection="appserver" prequery="Y"
+ table="CDICT_Descr"/>
+ <logic>
+ <block name="blkCDICT_Code" datasource="dtscdict_code">
+ <field name="fldGnueId" field="gnue_id" maxLength="32"/>
+ <field name="fldCdictName" field="CDICT_name" maxLength="40"/>
+ <field name="fldCdictType" field="CDICT_type"
+ fk_description="CDICT_name" fk_key="gnue_id"
fk_source="dtsCDICT_Descr"/>
+ <field name="fldCdictValue" field="CDICT_value" maxLength="32"/>
+ </block>
+ </logic>
+ <layout xmlns:Char="GNUe:Layout:Char" Char:height="6" Char:width="55">
+ <page name="Page1">
+ <label name="lblCdict Type:" Char:height="1" Char:width="5" Char:x="1"
+ Char:y="1" text="Type:"/>
+ <entry name="entCdictType" Char:height="1" Char:width="32" Char:x="7"
+ Char:y="1" block="blkCDICT_Code" field="fldCdictType"
focusorder="1"
+ label="" rows="1" style="dropdown"/>
+ <label name="lblCdict Name:" Char:height="1" Char:width="5" Char:x="1"
+ Char:y="3" text="Name:"/>
+ <entry name="entCdictName" Char:height="1" Char:width="40" Char:x="7"
+ Char:y="3" block="blkCDICT_Code" field="fldCdictName"
focusorder="2"
+ label=""/>
+ <label name="lblCdict Value:" Char:height="1" Char:width="6" Char:x="1"
+ Char:y="4" text="Value:"/>
+ <entry name="entCdictValue" Char:height="1" Char:width="32" Char:x="7"
+ Char:y="4" block="blkCDICT_Code" field="fldCdictValue"
focusorder="3"
+ label=""/>
+ <entry name="entGnueId" Char:height="1" Char:width="32" Char:x="1"
+ Char:y="5" block="blkCDICT_Code" field="fldGnueId" hidden="Y"
label=""/>
+ <button name="btnEdit" Char:height="1" Char:width="9" Char:x="40"
+ Char:y="1" label="Edit...">
+ <trigger type="On-Action" name="btnEditTrigger"><![CDATA[##
+ location = "cdictDescr.gfd"
+ form.runForm(location)
+ blkCDICT_Code.fldCdictType.resetForeignKey()
+ ]]>
+ </trigger>
+ </button>
+ </page>
+ </layout>
+</form>
Deleted: trunk/gnue-packages/base/util/forms/cdict.gpd
===================================================================
--- trunk/gnue-packages/base/util/forms/cdict.gpd 2004-07-07 22:09:46 UTC
(rev 5952)
+++ trunk/gnue-packages/base/util/forms/cdict.gpd 2004-07-08 12:46:29 UTC
(rev 5953)
@@ -1,32 +0,0 @@
-<?xml version="1.0"?>
-
-<processes title="Code dictionary">
- <description>
- <![CDATA[
- <H1><CENTER>Code dictionary</CENTER></H1>
- This branch contains forms that handle the code dictionary
- implemented in GNUe AppServer with the use of .GCD descriptions.<p>
- ]]>
- </description>
- <step type="form" location="./cdictDescr.gfd"
- title="Code descriptions">
- <description>
- <![CDATA[
- <B>Code description editor</B>
- <p>
- This form lets you edit code descriptions (name, length and
identifier of a code).
- ]]>
- </description>
- </step>
- <step type="form" location="./cdictCode.gfd"
- title="Code values">
- <description>
- <![CDATA[
- <B>Code value editor</B>
- <p>
- This form lets you edit code-value pairs in the code dictionary.
- ]]>
- </description>
- </step>
-</processes>
-
Deleted: trunk/gnue-packages/base/util/forms/cdictCode.gfd
===================================================================
--- trunk/gnue-packages/base/util/forms/cdictCode.gfd 2004-07-07 22:09:46 UTC
(rev 5952)
+++ trunk/gnue-packages/base/util/forms/cdictCode.gfd 2004-07-08 12:46:29 UTC
(rev 5953)
@@ -1,39 +0,0 @@
-<?xml version="1.0" encoding="iso8859-1"?>
-
-<!-- GNUe-Designer (0.5.4.99)
- Saved on: 2004-06-15 12:15:41 -->
-
-<form title="Code dictionary">
- <options/>
- <datasource name="dtsCDICT_Code" connection="appserver" table="CDICT_Code"/>
- <datasource name="dts_CDICT_Descr" connection="appserver"
- table="CDICT_Descr" prequery="Y"/>
- <logic>
- <block name="blkCDICT_Code" datasource="dtscdict_code">
- <field name="fldGnueId" field="gnue_id" maxLength="32"/>
- <field name="fldCdictName" field="CDICT_name" maxLength="100"/>
- <field name="fldCdictType" field="CDICT_type" fk_description="name"
- fk_key="gnue_id" fk_source="dts_CDICT_Descr" maxLength="32"/>
- <field name="fldCdictValue" field="CDICT_value" maxLength="32"/>
- </block>
- </logic>
- <layout xmlns:Char="GNUe:Layout:Char" Char:height="5" Char:width="38">
- <page name="Page1">
- <label name="lblCdict Name:" Char:height="1" Char:width="5" Char:x="1"
- Char:y="1" text="Name:"/>
- <entry name="entCdictName" Char:height="1" Char:width="30" Char:x="7"
- Char:y="1" block="blkCDICT_Code" field="fldCdictName" label=""/>
- <label name="lblCdict Value:" Char:height="1" Char:width="6" Char:x="1"
- Char:y="2" text="Value:"/>
- <entry name="entCdictValue" Char:height="1" Char:width="30" Char:x="7"
- Char:y="2" block="blkCDICT_Code" field="fldCdictValue" label=""/>
- <label name="lblCdict Type:" Char:height="1" Char:width="5" Char:x="1"
- Char:y="3" text="Type:"/>
- <entry name="entCdictType" Char:height="1" Char:width="30" Char:x="7"
- Char:y="3" block="blkCDICT_Code" field="fldCdictType" label=""
- style="dropdown"/>
- <entry name="entGnueId" Char:height="1" Char:width="32" Char:x="1"
- Char:y="4" block="blkCDICT_Code" field="fldGnueId" hidden="Y"
label=""/>
- </page>
- </layout>
-</form>
Modified: trunk/gnue-packages/base/util/forms/cdictDescr.gfd
===================================================================
--- trunk/gnue-packages/base/util/forms/cdictDescr.gfd 2004-07-07 22:09:46 UTC
(rev 5952)
+++ trunk/gnue-packages/base/util/forms/cdictDescr.gfd 2004-07-08 12:46:29 UTC
(rev 5953)
@@ -12,28 +12,22 @@
<field name="fldCdictLength" field="CDICT_length" maxLength="10"
typecast="number"/>
<field name="fldCdictName" field="CDICT_name" maxLength="100"/>
- <field name="fldCdictType" field="CDICT_type" maxLength="3"/>
</block>
</logic>
- <layout xmlns:Char="GNUe:Layout:Char" Char:height="5" Char:width="40">
+ <layout xmlns:Char="GNUe:Layout:Char" Char:height="3" Char:width="40">
<page name="Page1">
<label name="lblCdict Name:" Char:height="1" Char:width="5" Char:x="1"
Char:y="1" text="Name:"/>
<entry name="entCdictName" Char:height="1" Char:width="30" Char:x="9"
Char:y="1" block="blkCDICT_Descr" field="fldCdictName"
focusorder="1"
label=""/>
- <label name="lblCdict Type:" Char:height="1" Char:width="5" Char:x="1"
- Char:y="2" text="Type:"/>
- <entry name="entCdictType" Char:height="1" Char:width="3" Char:x="9"
- Char:y="2" block="blkCDICT_Descr" field="fldCdictType"
focusorder="2"
- label=""/>
<label name="lblCdict Length:" Char:height="1" Char:width="7" Char:x="1"
- Char:y="3" text="Length:"/>
+ Char:y="2" text="Length:"/>
<entry name="entCdictLength" Char:height="1" Char:width="5" Char:x="9"
- Char:y="3" block="blkCDICT_Descr" field="fldCdictLength"
focusorder="3"
+ Char:y="2" block="blkCDICT_Descr" field="fldCdictLength"
focusorder="2"
label=""/>
<entry name="entGnueId" Char:height="1" Char:width="32" Char:x="1"
- Char:y="4" block="blkCDICT_Descr" field="fldGnueId" hidden="Y"
label=""/>
+ Char:y="3" block="blkCDICT_Descr" field="fldGnueId" hidden="Y"
label=""/>
</page>
</layout>
</form>
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- r5953 - in trunk/gnue-packages/base/util: class doc forms,
kilo <=