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

mred/private/wxme: fixed some method arities and defaults

Browse Source 
svn: r14477

original commit: b6b917a4b96c3c5d51b97665fc28a0a23d4f5db9
This commit is contained in:
Ryan Culpepper 2009-04-09 14:59:19 +00:00
parent e9e6beb743
commit 561fadaa49
5 changed files with 16 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mred/private/wxme/editor-admin.ss
View File

@ -39,7 +39,7 @@
[(symbol-in start none end) [bias 'none]])
(void))
(def/public (grab-caret [(symbol-in immediate display global) dist])
(def/public (grab-caret [(symbol-in immediate display global) [dist 'global]])
(void))
(def/public (resized [any? redraw-now]) (void))

13
collects/mred/private/wxme/editor-canvas.ss
View File

@ -273,7 +273,7 @@
(send blink-timer kill)
(set! blink-timer #f))
(send admin set-canvas #f)
#;(super ~))
#|(super ~)|#)
(define/override (on-size w h)
(unless noloop?
@ -352,7 +352,7 @@
(define/public (is-focus-on?) focuson?)
(define (force-display-focus on?)
(define/public (force-display-focus on?)
(let ([old-on? focusforcedon?])
(set! focusforcedon? on?)
(send admin adjust-std-flag)
@ -360,7 +360,6 @@
(or focuson? old-on?)))
(refresh))))
(define/override (on-event event)
;; Turn off auto-dragger, if there is one
(when auto-dragger
@ -493,7 +492,7 @@
need-refresh?)
(on-paint)))
(define (get-lazy-refresh) lazy-refresh?)
(define/public (get-lazy-refresh) lazy-refresh?)
(define/public (set-custom-cursor cursor)
(if (not cursor)
@ -879,7 +878,7 @@
(define/public (get-editor) media)
(define/public (set-editor m update?)
(define/public (set-editor m [update? #t])
(unless (eq? media m)
(when media
(when (eq? admin (send media get-admin))
@ -932,8 +931,8 @@
(set! scroll-to-last? to-last?)
(reset-visual #f)
(repaint))
(define (scroll-with-bottom-base bottom?)
(define/public (scroll-with-bottom-base bottom?)
(set! scroll-bottom-based? bottom?)
(reset-visual #f)
(repaint)))

4
collects/mred/private/wxme/editor.ss
View File

@ -387,7 +387,7 @@
;; ----------------------------------------
(def/public (set-keymap [keymap% k])
(def/public (set-keymap [keymap% [k #f]])
(set! s-keymap k))
(def/public (get-keymap) s-keymap)
(def/public (get-style-list) s-style-list)
@ -481,7 +481,7 @@
(define/public (really-can-edit?) #f)
(def/public (insert-box [symbol? type])
(def/public (insert-box [symbol? [type 'text]])
(let ([snip (on-new-box type)])
(when snip
(let ([sname (default-style-name)])

11
collects/mred/private/wxme/pasteboard.ss
View File

@ -1734,7 +1734,7 @@
(loop (snip->next snip))))
(install-copy-buffer time sl)))
(def/override (copy [bool? extend?] [exact-integer? time])
(def/override (copy [bool? [extend? #f]] [exact-integer? [time 0]])
(begin-copy-buffer)
(when (not extend?)
(free-old-copies))
@ -1795,10 +1795,10 @@
(do-paste time))
(end-edit-sequence)))
(def/override (paste [exact-integer? time])
(def/override (paste [exact-integer? [time 0]])
(generic-paste #f time))
(def/override (paste-x-selection [exact-integer? time])
(def/override (paste-x-selection [exact-integer? [time 0]])
(generic-paste #t time))
(define/override (insert-paste-snip snip data)
@ -1812,7 +1812,7 @@
(send snip insert str)
(insert-paste-snip snip #f)))
(def/override (kill [exact-integer? time])
(def/override (kill [exact-integer? [time 0]])
(cut time))
(define/override (own-x-selection on? update? force?)
@ -1912,7 +1912,8 @@
(write-snips-to-file f s-style-list #f snips #f #f this)
(do-write-headers-footers f #f)))
(def/override (read-from-file [editor-stream-in% f] [bool? overwritestyle?])
(def/override (read-from-file [editor-stream-in% f]
[bool? [overwritestyle? #t]])
(if (or s-user-locked?
(not (zero? write-locked)))
#f

2
collects/mred/private/wxme/snip-admin.ss
View File

@ -19,7 +19,7 @@
#f)
(def/public (get-view [maybe-box? x] [maybe-box? y] [maybe-box? w] [maybe-box? h]
[(make-or-false snip%) snip])
[(make-or-false snip%) [snip #f]])
#f)
(def/public (scroll-to [snip% s]