Changeset 117

Show
Ignore:
Timestamp:
10/06/08 12:47:57 (7 weeks ago)
Author:
achiumenti
Message:

can-drop renamed to a more specific edit-user-roles-can-drop

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • trunk/main/claw-demo/src/frontend/components/edit-user.lisp

    r116 r117  
    118118 
    119119 
    120 (defun can-drop (css-class-name) 
     120(defun edit-user-roles-can-drop (css-class-name) 
    121121  (ps:ps* `(progn  
    122122             (defvar m (.manager (slot-value dojo 'dnd))) 
    … …  
    168168           (djdnd-source> :class "userRolesContainer availableRoles" 
    169169                          (script> :type "dojo/connect" :event "onMouseMove" :args "e" 
    170                                    (can-drop "userRoles")) 
     170                                   (edit-user-roles-can-drop "userRoles")) 
    171171                          (loop for role in (unused-roles visit-object) 
    172172                             collect (djdnd-item> (role-name role)))) 
    173173           (djdnd-source> :class "userRolesContainer userRoles" 
    174174                          (script> :type "dojo/connect" :event "onMouseMove" :args "e" 
    175                                    (can-drop "availableRoles")) 
     175                                   (edit-user-roles-can-drop "availableRoles")) 
    176176                 (loop for role in (user-roles visit-object) 
    177177                      collect (djdnd-item> (role-name role)))))