- interface are ready

alterator-net-tcp/ui/net-tcp.scm

@@ -4,14 +4,87 @@
 (document:envelop with-container-presentations ((netmask '/net-tcp/netmask text)) )
 
 width 600
-height 500
+height 400
+
+spacing 5
+margin 10
+
+(hbox
+ layout-policy 100 -1
+ spacing 2
+ (label "Interface:")
+ (document:id ifaces (combobox layout-policy 20 -1)))
+
+
+(document:id iface-enabled (checkbox "Enabled"))
+(document:id iface-dhcp (checkbox "Use DHCP"))
+
+(hbox
+ layout-policy 100 -1
+ (label "IP address" layout-policy 30 -1)
+ (document:id iface-ip (edit "" layout-policy -2 -1)))
+
+(hbox
+ layout-policy 100 -1
+ (label "NetMask" layout-policy 30 -1)
+ (document:id iface-mask (netmask "" layout-policy -2 -1)))
+
+(hbox
+ layout-policy 100 -1
+ (label "Default gateway" layout-policy 30 -1)
+ (document:id iface-gw (edit "" layout-policy -2 -1)))
+
+ (vertical-spacer)
+ (hbox layout-policy 100 -1
+       spacing 10
+       (document:id c-button (button "Commit" layout-policy 33 -1))
+       (document:id r-button (button "Reset"  layout-policy 33 -1))
+       (document:id q-button (button "Quit" layout-policy -2 -1)))
 
 
 
-(define iface (woo-read-first "/net-tcp/eth0"))
+;;;;;;;;;;;;;;;;;;;;;;;;;
+(define (update-interface name)
+  (and (not-empty-string? name)
+       (let ((cmd (woo-read-first (string-append "/net-tcp" "/" name))))
+         
+         (iface-enabled state (cond-cdr (command-arg-ref cmd 'state))
+                        toggled)
+         
+         (iface-dhcp state (cond-cdr (command-arg-ref cmd 'dhcp))
+                     toggled)
+         
+         (iface-ip text (woo-get-option cmd 'ip))
+         (iface-mask text (woo-get-option cmd 'mask))
+         (iface-gw text (woo-get-option cmd 'default)))))
 
 
-(document:id i (edit (woo-get-option iface 'ip)))
+(define (commit-interface name)
-(document:id n (netmask (woo-get-option iface 'mask)))
+  (and (not-empty-string? name)
+       (woo-write (string-append "/net-tcp" "/" name)
+                  'state (iface-enabled state)
+                  'dhcp  (iface-dhcp state)
+                  'ip    (iface-ip text)
+                  'mask  (iface-mask text)
+                  'default (iface-gw text))))
+
+(ifaces header (vector"Network interfaces")
+        rows (woo-list-names "/net-tcp")
+        (when selected (update-interface (ifaces text))))
+
+(c-button (when clicked (commit-interface (ifaces text))))
+(r-button (when clicked (update-interface (ifaces text))))
+(q-button (when clicked (document:end)))
 
 
+(iface-enabled (when toggled ((widgets iface-dhcp
+                                       iface-ip
+                                       iface-mask
+                                       iface-gw) activity (iface-enabled state))))
+(iface-dhcp (when toggled ((widgets iface-ip
+                                    iface-mask
+                                    iface-gw) activity (not (iface-dhcp state)))))
+                 
+
+;;init first update
+(ifaces current 0 selected)