suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fixed bug with delegate

Browse Source 
svn: r6154

original commit: 53b5917fec020ae037d64fdff397cea6bcb84626
This commit is contained in:
Robby Findler 2007-05-05 14:15:11 +00:00
parent 28695d0f63
commit e3d59a170e
1 changed files with 0 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
collects/framework/private/frame.ss
View File

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