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

simplified frame:editor and friends interface

Browse Source 
svn: r5940

original commit: 5fffd316b4e9084cacaccae05018a5fbedacfa67
This commit is contained in:
Robby Findler 2007-04-14 14:59:05 +00:00
parent db7684e5ce
commit 3399a61919
1 changed files with 11 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1007,10 +1007,11 @@
get-canvas
get-editor))
(define editor-mixin
(define editor-mixin
(mixin (standard-menus<%>) (-editor<%>)
(init (filename #f))
(init-field (editor% #f))
(inherit get-area-container get-client-size
show get-edit-target-window get-edit-target-object)
@ -1080,7 +1081,8 @@
<%> %))
(instantiate % () (parent (get-area-container)))))
(define/public (get-editor%)
(error 'editor-frame% "abstract method: no editor% class specified"))
(or editor%
(error 'editor-frame% "abstract method: no editor% class specified")))
(define/public (get-editor<%>)
editor:basic<%>)
(define/public (make-editor)
@ -1395,15 +1397,15 @@
(define text-mixin
(mixin (-editor<%>) (text<%>)
(define/override (get-editor<%>) (class->interface text%))
(define/override (get-editor%) text:keymap%)
(super-new)))
(init (editor% text:keymap%))
(super-new (editor% editor%))))
(define pasteboard<%> (interface (-editor<%>)))
(define pasteboard-mixin
(mixin (-editor<%>) (pasteboard<%>)
[define/override get-editor<%> (λ () (class->interface pasteboard%))]
[define/override get-editor% (λ () pasteboard:keymap%)]
(super-new)))
(define/override get-editor<%> (λ () (class->interface pasteboard%)))
(init (editor% text:pastebard%))
(super-new (editor% editor%))))
(define delegate<%>
(interface (status-line<%> text<%>)
@ -1612,6 +1614,7 @@
(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)