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

fix value rendering

Browse Source 
svn: r8731
This commit is contained in:
Greg Cooper 2008-02-19 20:27:28 +00:00
parent 0103f9a4d4
commit 9db13685e1
1 changed files with 3 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
collects/frtime/frp-snip.ss
View File

@ -9,19 +9,6 @@
(lib "frp-core.ss" "frtime")
(all-except (lib "lang-ext.ss" "frtime") undefined?)
(only (lib "mzscheme-core.ss" "frtime") any-nested-reactivity? raise-reactivity)
; (rename (lib "frp-core.ss" "frtime") behavior? behavior?)
; (rename (lib "lang-ext.ss" "frtime") event? event?)
; (rename (lib "frp-core.ss" "frtime") signal? signal?)
;
; (rename (lib "frp-core.ss" "frtime") econs? econs?)
; (rename (lib "frp-core.ss" "frtime") efirst efirst)
;
; (rename (lib "frp-core.ss" "frtime") value-now value-now)
; (rename (lib "frp-core.ss" "frtime") signal-value signal-value)
; (rename (lib "lang-ext.ss" "frtime") undefined undefined)
; (rename (lib "lang-ext.ss" "frtime") undefined? frp:undefined?)
;
; (rename (lib "frp-core.ss" "frtime") proc->signal proc->signal)
;; MrEd require
(all-except (lib "mred.ss" "mred") send-event))
@ -92,12 +79,8 @@
(set! current c)
(let ([admin (get-admin)])
(when admin
(send admin resized this #t)
#;(send admin needs-update this 0 0 2000 100)))))))
#;(define/override (resize w h)
(super resize w h)
(send (get-admin) resized this #t)
#t)
(send admin resized this #t)))))))
(define/override (size-cache-invalid)
(send current size-cache-invalid))
@ -117,7 +100,7 @@
[current (make-snip bhvr super-render-fun)])
(define/override (copy)
(let ([ret (make-object value-snip-copy% current this)])
(let ([ret (make-object dynamic-snip-copy% current this)])
(set! copies (cons ret copies))
ret))
@ -177,9 +160,6 @@
(make-object dynamic-snip% (raise-reactivity beh) super-render-fun)]
[(signal? beh)
(make-object dynamic-snip% beh super-render-fun)]
#;(let ([pb (new pasteboard%)])
(send pb insert (make-object dynamic-snip% beh super-render-fun))
(new editor-snip% [editor (new pasteboard%)]))
[else beh]))
(provide (all-defined))