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

forgot to remove my own debug stuff

Browse Source 
original commit: a804b7c36bc32ba740ad45aab6086c92bbbef72f
This commit is contained in:
Mike MacHenry 2003-12-15 19:00:53 +00:00
parent f0f8218cef
commit 73c8cbf194
2 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/mrlib/private/aligned-pasteboard/snip-lib.ss
View File

@ -6,8 +6,7 @@
(lib "mred.ss" "mred") (lib "mred.ss" "mred")
(lib "list.ss") (lib "list.ss")
(lib "contract.ss") (lib "contract.ss")
"interface.ss" "interface.ss")
(lib "debug.ss" "mike-lib"))
;; a snip ;; a snip
(define snip? (is-a?/c snip%)) (define snip? (is-a?/c snip%))

5
collects/mrlib/private/aligned-pasteboard/tests/minimal.ss
View File

@ -1,7 +1,6 @@
(require (require
"../aligned-editor-container.ss" "../aligned-editor-container.ss"
"../aligned-pasteboard.ss" "../aligned-pasteboard.ss")
(lib "debug.ss" "mike-lib"))
(define my-string-snip% (define my-string-snip%
(class string-snip% (class string-snip%
@ -20,4 +19,4 @@
(send pb insert (new my-string-snip% (label "Long snip"))) (send pb insert (new my-string-snip% (label "Long snip")))
(send pb insert (new my-string-snip% (label "Longer snip"))) (send pb insert (new my-string-snip% (label "Longer snip")))
(send e insert s) (send e insert s)
(send f show #t) (send f show #t)