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

minor cleanup

Browse Source 
svn: r7974
This commit is contained in:
Robby Findler 2007-12-12 20:03:42 +00:00
parent a451c71dda
commit 62eb32519b
1 changed files with 49 additions and 42 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

81
collects/drscheme/private/debug.ss
View File

@ -36,19 +36,21 @@ profile todo:
(define (oprintf . args) (apply fprintf orig args)) (define (oprintf . args) (apply fprintf orig args))
;
;; ; ;
; ; ;
; ; ; ;
;;;; ;; ;; ;;; ; ;;; ;;; ;;; ; ;;; ; ;
; ; ; ; ; ; ; ; ; ; ; ;; ; ; ; ;; ; ; ;; ; ;;; ;;;; ;;; ; ;;
; ; ; ; ; ; ; ; ; ; ; ; ; ;; ; ; ; ; ;; ; ; ; ; ;; ;
; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ;
; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ;
; ;;; ;;; ; ;;;; ;;;;; ;;; ;;; ;;; ;; ; ; ; ; ; ; ; ; ; ; ; ; ;
; ; ;; ; ; ;; ; ;; ; ; ; ; ; ;
; ; ; ;; ;; ; ;; ; ; ;;;; ;;; ; ;
;;; ; ;
; ;;;
;
;; type debug-source = (union symbol (instanceof editor<%>)) ;; type debug-source = (union symbol (instanceof editor<%>))
@ -75,8 +77,8 @@ profile todo:
w-o-b w-o-b
b-o-w)))) b-o-w))))
(define clickable-image-snip% (define (clickable-snip-mixin snip%)
(class image-snip% (class snip%
(init-rest args) (init-rest args)
(inherit get-flags set-flags get-admin get-extent) (inherit get-flags set-flags get-admin get-extent)
@ -138,6 +140,17 @@ profile todo:
(apply super-make-object args) (apply super-make-object args)
(set-flags (cons 'handles-events (get-flags))))) (set-flags (cons 'handles-events (get-flags)))))
(define clickable-image-snip% (clickable-snip-mixin image-snip%))
(define clickable-string-snip%
(class (clickable-snip-mixin string-snip%)
(inherit get-callback set-callback)
(init-field str)
(define/override (copy)
(let ([n (new clickable-string-snip% [str str])])
(send n set-callback (get-callback))
n))
(super-make-object str)))
;; make-note% : string -> (union class #f) ;; make-note% : string -> (union class #f)
(define (make-note% filename flag) (define (make-note% filename flag)
(let ([bitmap (make-object bitmap% (let ([bitmap (make-object bitmap%
@ -300,6 +313,7 @@ profile todo:
(and (not (unbox b)) (and (not (unbox b))
fn)) fn))
raw-src)]) raw-src)])
(when (and (path? src) file-note%) (when (and (path? src) file-note%)
(when (port-writes-special? (current-error-port)) (when (port-writes-special? (current-error-port))
(let ([note (new file-note%)]) (let ([note (new file-note%)])
@ -1051,18 +1065,21 @@ profile todo:
;;; ; ;;; ; ;
; ; ;
; ; ; ;;; ;;;
; ;;; ; ;;; ;;; ;;;;; ;;; ; ;;; ; ;;; ;;; ; ; ; ; ; ;
; ; ; ; ; ; ; ; ; ;; ; ; ; ; ; ;
; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ;; ; ;;; ;;; ;;;;;; ;;; ; ;;; ; ;; ;; ;
; ; ; ; ; ; ; ; ; ; ; ; ; ; ;; ; ;; ; ; ; ; ; ; ; ;; ; ; ;;
; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ;
;;;; ;;;; ;;; ;;;; ;;;;; ;;;;;; ;;;;; ;;; ;; ;;;; ; ; ; ; ; ; ; ; ; ; ; ; ; ;
; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ;
; ; ; ;; ; ; ; ; ; ; ; ; ; ; ; ;;
;;; ;;; ; ; ;; ; ;;; ; ; ; ; ; ; ;; ;
; ; ;
; ; ;;;
;
(define profile-key (gensym)) (define profile-key (gensym))
@ -1928,14 +1945,4 @@ profile todo:
;
;
;;; ; ;;; ; ;;; ;;; ; ;;; ;;;;; ; ;;; ;;;; ;;; ;;;
; ; ; ; ; ; ; ; ; ; ; ; ; ;
;;;;; ; ; ; ; ; ; ; ;;;; ; ;;;;;
; ; ; ; ; ; ; ; ; ; ; ;
; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ;
;;; ;;;; ;;;; ;;; ;;;; ;;; ;;;; ;;; ; ;;; ;;;
(define-values/invoke-unit/infer stacktrace@))) (define-values/invoke-unit/infer stacktrace@)))