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

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

@ -16,7 +16,7 @@
(provide scheme@) (provide scheme@)
(define scheme@ (define scheme@
(unit/sig framework:scheme^ (unit/sig framework:scheme^
(import mred^ (import mred^
[preferences : framework:preferences^] [preferences : framework:preferences^]
[match-cache : framework:match-cache^] [match-cache : framework:match-cache^]
@ -31,6 +31,25 @@
(rename [-text% text%] (rename [-text% text%]
[-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-struct string/pos (string pos))
(define -text<%> (define -text<%>
@ -835,6 +854,12 @@
(define -text% (text-mixin text:info%)) (define -text% (text-mixin text:info%))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; ;;
;; Scheme Keymap ;;
;; ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(define setup-keymap (define setup-keymap
(lambda (keymap) (lambda (keymap)
@ -1003,7 +1028,7 @@
(cond (cond
[(and (symbol? parsed) [(and (symbol? parsed)
(hash-table-get (preferences:get 'framework:tabify) (hash-table-get (preferences:get 'framework:tabify)
parsed parsed
(lambda () #f))) (lambda () #f)))
(message-box (string-constant error) (message-box (string-constant error)
(format (string-constant already-used-keyword) parsed))] (format (string-constant already-used-keyword) parsed))]