(document:surround "/std/frame")

children-align center

(label "Available Services")

(hbox
  (vbox
	 children-align center
	 (label "Enabled")
	 (document:id enabled (listbox rows (woo-list-names '/services)))
	 (button "Disable"
				(on-click (woo-write '/services 'command 'disable 'param (enabled text)))))
  (vbox
	 children-align center
	 (label "Disabled")
	 (document:id disabled (listbox rows (woo-list-names '/services)))
	 (button "Enable"
				(on-click (woo-write '/services 'command 'enable 'param (disabled text))))))

;(hbox
;  (vbox
;	  (label "[A1]")
;	  (label "[A2]"))
;  (vbox
;	  (label "[B1]")
;	  (label "[B2]")))

(frame:buttons-view
  (button "Quit" (on-click (document:end))))