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