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

...

Browse Source 
original commit: 991173989d42207df6b8cfccf531dbf7d61be68c
This commit is contained in:
Robby Findler 2001-10-11 20:27:39 +00:00
parent 8407848bf1
commit 37caacc90e
1 changed files with 1002 additions and 977 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
collects/framework/private/scheme.ss
View File

@ -31,6 +31,25 @@
(rename [-text% text%]
[-text<%> text<%>])
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; ;;
;; Sexp Snip ;;
;; ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(define sexp-snip%
(class snip%
(define/override (draw dc x y left top right bottom dx dy draw-caret)
(void))
(define/override (get-extent dc x y w h descent space lspace rspace)
(void))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; ;;
;; Text ;;
;; ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(define-struct string/pos (string pos))
(define -text<%>
@ -835,6 +854,12 @@
(define -text% (text-mixin text:info%))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; ;;
;; Scheme Keymap ;;
;; ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(define setup-keymap
(lambda (keymap)