Re: [sisyphus] I: Пишем модули для alterator [services r/o]

[Michael Shigorin <mike@osdn.org.ua>]

[-- Attachment #1: Type: text/plain, Size: 630 bytes --]

On Tue, Apr 18, 2006 at 05:56:39PM +0400, Stanislav Ievlev wrote:
> > > 2. Что такое списки с <</>> ? И зачем они нужны?
> > Ну, "переносилки", как у тебя в Psi в настраивалке тулбаров:
> >  on       off
> > +---+    +---+
> > | a |    | b |
> > | c | << | e |
> > | d | >> |   |
> > |   |    |   |
> > +---+    +---+
> Ну можно посмотреть как это сделано в standalone или alterator-xkb
> Есть операции для удаления и добавления элементов с список.

Пока удовольствовался приаттаченным.

Надо бы завтра списки уже сделать разные...

-- 
 ---- WBR, Michael Shigorin <mike@altlinux.ru>
  ------ Linux.Kiev http://www.linux.kiev.ua/

[-- Attachment #2: services.scm --]
[-- Type: text/plain, Size: 704 bytes --]

(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))))