Author: hannes
Date: Sun Sep 18 17:01:22 2005
New Revision: 9968
Modified:
trunk/libraries/koala/sources/examples/buddha/class-editor.dylan
trunk/libraries/koala/sources/examples/buddha/host.dylan
trunk/libraries/koala/sources/examples/buddha/zone.dylan
Log:
Bug: 7257
*implemented some more as(<string>) methods
Modified: trunk/libraries/koala/sources/examples/buddha/class-editor.dylan
==============================================================================
--- trunk/libraries/koala/sources/examples/buddha/class-editor.dylan
(original)
+++ trunk/libraries/koala/sources/examples/buddha/class-editor.dylan Sun Sep
18 17:01:22 2005
@@ -18,9 +18,8 @@
end if;
//if (subtype?(type, <sequence>) | subtype?(type, <table>))
//add-form-foobar (also when not initialized)
- //else
- collect(with-xml() br end);
//end if
+ collect(with-xml() br end);
end),
input(type => "submit", name => "save-button", value => "Save")
}
@@ -39,14 +38,6 @@
end;
end;
-define method edit-slot (object :: <ip-address>, slot-name :: <string>)
- with-xml()
- input(type => "text",
- name => slot-name,
- value => as(<string>, object))
- end;
-end;
-
define method edit-slot (object :: <string>, slot-name :: <string>)
with-xml()
input(type => "text",
@@ -55,7 +46,7 @@
end;
end;
-define method edit-slot (object :: type-union(<sequence>, <table>),
+define method edit-slot (object :: type-union(<list>, <table>),
slot-name :: <string>)
with-xml()
ul
Modified: trunk/libraries/koala/sources/examples/buddha/host.dylan
==============================================================================
--- trunk/libraries/koala/sources/examples/buddha/host.dylan (original)
+++ trunk/libraries/koala/sources/examples/buddha/host.dylan Sun Sep 18
17:01:22 2005
@@ -37,6 +37,11 @@
a.host-ipv4-address < b.host-ipv4-address
end;
+define method as (class == <string>, host :: <host>)
+ => (res :: <string>)
+ concatenate(host.host-name, " ", as(<string>, host.host-ipv4-address));
+end;
+
define method gen-xml (host :: <host>)
with-xml()
tr
Modified: trunk/libraries/koala/sources/examples/buddha/zone.dylan
==============================================================================
--- trunk/libraries/koala/sources/examples/buddha/zone.dylan (original)
+++ trunk/libraries/koala/sources/examples/buddha/zone.dylan Sun Sep 18
17:01:22 2005
@@ -23,6 +23,11 @@
format(stream, "%s", zone.zone-name);
end method;
+define method as (class == <string>, zone :: <zone>)
+ => (res :: <string>)
+ zone.zone-name;
+end;
+
define method gen-xml (zone :: <zone>)
with-xml()
tr { td(zone.zone-name) }
--
Gd-chatter mailing list
Gd-chatter@xxxxxxxxxxxxxxxx
https://gauss.gwydiondylan.org/mailman/listinfo/gd-chatter
|
