Hi Tomas,
strange, the code looks all right (except for the argument to 'scroll',
which should perhaps be 15 instead of 6, but doesn't really have to).
I pasted it into "app/role.l", changed 'it' to 'usr', '+It' to '+User'
and (choIt ..) to (choDlg ..), and it works just fine.
Also, I'm using '+BubbleButton' in almost all applications, usually with
JavaScript is enabled.
Something else must be wrong. To be sure, could you test it with the
latest testing version of PicoLisp? I attach the modified "app/role.l"
in case you'd like to try that.
Cheers,
- Alex
# 20feb09abu
# (c) Software Lab. Alexander Burger
(must "Role Administration" RoleAdmin)
(menu ,"Role Administration"
(ifn *ID
(prog
(<h3> NIL ,"Select" " " ,"Role")
(form 'dialog (choDlg NIL ,"Roles" '(nm +Role))) )
(<h3> NIL ,"Role Administration")
(form NIL
(<h2> NIL (<id> (: nm)))
(panel T (pack ,"Role" " '@1'") '(may Delete) '(choDlg NIL ,"Roles"
'(nm +Role)) 'nm '+Role)
(----)
(gui '(+E/R +Chart) '(usr : home obj) 4
'((This) (list NIL This NIL NIL))
cadr )
(<table> NIL NIL '((btn) NIL (btn) (btn))
(do 15
(<row> NIL
(gui 1 '(+ChoButton) '(choDlg (field 1) ,"Users" '(nm +User)))
(gui 2 '(+Obj +TextField) '(nm +User) 40)
(gui 3 '(+DelRowButton))
(gui 4 '(+BubbleButton)) ) )
(<row> NIL NIL (scroll 6)) )
(----)
(gui '(+E/R +Cue +TextField) '(nm : home obj) ,"Role" 30 ,"Name")
(<table> NIL NIL NIL
(gui '(+E/R +Fmt +Chart)
'(perm : home obj)
'((Val) (mapcar '((S) (list S (memq S Val))) *Perms))
'((Lst) (extract '((L P) (and (cadr L) P)) Lst *Perms))
2 )
(do (length *Perms)
(<row> NIL
(gui 1 '(+Set +TextField) '((Sym) (val (val Sym))))
(gui 2 '(+Checkbox)) ) ) )
(gui '(+/R +Chart) '(usr : home obj) 1 list)
(<table> 'chart ,"User" NIL
(do 8
(<row> (alternating)
(gui 1 '(+Obj +TextField) '(nm +User)) ) ) )
(<spread> (scroll 8) (editButton T)) ) ) )
# vi:et:ts=3:sw=3
