fixed bug with delegate

svn: r6154

original commit: 53b5917fec020ae037d64fdff397cea6bcb84626
This commit is contained in:
Robby Findler 2007-05-05 14:15:11 +00:00
parent 28695d0f63
commit e3d59a170e

View File

@ -1614,7 +1614,6 @@
(send super-root change-children
(λ (l) (list rest-panel))))
(define/public (show-delegated-text)
(printf "~s\n" (show-delegated-text))
(open-status-line 'plt:delegate)
(set! shown? #t)
(send (get-delegated-text) set-delegate delegatee)