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

some pasteboard repairs

Browse Source 
svn: r14462
This commit is contained in:
Matthew Flatt 2009-04-08 12:42:25 +00:00
parent 4ccff8023e
commit 406d0774c9
2 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1109,10 +1109,10 @@
(let loop ([s (send this find-first-snip)])
(if s
(if (send this is-selected? s)
(loop (snip->next s))
(begin
(send this add-selected s)
(cons s (loop (snip->next s))))
(loop (snip->next s)))
(cons s (loop (snip->next s)))))
null))])
(send this copy #t 0)
(for-each (lambda (s)
@ -1134,7 +1134,7 @@
(for-each (lambda (s bfd)
(unless (this . is-a? . text%)
(send m insert s s)) ;; before itself -> at end
(send m insert s #f))
(when bfd
(send m set-snip-data s bfd)))
copy-snips

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

@ -1637,23 +1637,23 @@
;; ----------------------------------------
(def/override (set-min-width [real? w])
(set! min-width (if (w . <= . 0) 'none w))
(def/override (set-min-width [(make-alts real? (symbol-in none)) w])
(set! min-width (if (and (real? w) (w . <= . 0)) 'none w))
(set! need-resize? #t)
(update-all))
(def/override (set-max-width [real? w])
(set! max-width (if (w . <= . 0) 'none w))
(def/override (set-max-width [(make-alts real? (symbol-in none)) w])
(set! max-width (if (and (real? w) (w . <= . 0)) 'none w))
(set! need-resize? #t)
(update-all))
(def/override (set-min-height [real? h])
(set! min-height (if (h . <= . 0) 'none h))
(def/override (set-min-height [(make-alts real? (symbol-in none)) h])
(set! min-height (if (and (real? h) (h . <= . 0)) 'none h))
(set! need-resize? #t)
(update-all))
(def/override (set-max-height [real? h])
(set! max-height (if (h . <= . 0) 'none h))
(def/override (set-max-height [(make-alts real? (symbol-in none)) h])
(set! max-height (if (and (real? h) (h . <= . 0)) 'none h))
(set! need-resize? #t)
(update-all))