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.

- Alex
# 20feb09abu
# (c) Software Lab. Alexander Burger

(must "Role Administration" RoleAdmin)

(menu ,"Role Administration"
   (ifn *ID
         (<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

Reply via email to