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

.

Browse Source 
original commit: 2a87d899a2d4eae37ffcd93b3f94023574a3ebdc
This commit is contained in:
Robby Findler 2005-01-24 15:20:06 +00:00
parent 57b4aee87d
commit 84f0f073e4
2 changed files with 13 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/framework/private/comment-box.ss
View File

@ -96,13 +96,13 @@
(send admin get-editor))))
;; find-this-position : -> (union #f number)
(define (find-this-position)
(define/private (find-this-position)
(let ([ed (find-containing-editor)])
(and ed
(send ed get-snip-position this))))
;; copy-contents-with-semicolons-to-position : (is-a? text%) number -> void
(define (copy-contents-with-semicolons-to-position to-ed from-ed pos)
(define/private (copy-contents-with-semicolons-to-position to-ed from-ed pos)
(let loop ([snip (find-last-snip from-ed)])
(cond
[snip
@ -116,7 +116,7 @@
;; find-last-snip : editor -> snip
;; returns the last snip in the editor
(define (find-last-snip ed)
(define/private (find-last-snip ed)
(let loop ([snip (send ed find-first-snip)]
[acc (send ed find-first-snip)])
(cond

20
collects/framework/private/number-snip.ss
View File

@ -186,7 +186,7 @@
;; iterate/reflow : -> void
;; iterates the fraction and tells the administrator to redraw the numbers
(define (iterate/reflow)
(define/private (iterate/reflow)
(iterate 1)
(let ([admin (get-admin)])
(when admin
@ -262,7 +262,7 @@
;; extract-cycle : -> (listof digit)
;; pre: (number? repeat)
(define (extract-cycle)
(define/private (extract-cycle)
(let ([pr (hash-table-get ht repeat)])
(cons (car pr)
(extract-helper (cdr pr)))))
@ -342,7 +342,7 @@
[(improper)
(get-improper-fraction-extent dc x y wb hb descent space lspace rspace)]))
(define (get-improper-fraction-extent dc x y w h descent space lspace rspace)
(define/private (get-improper-fraction-extent dc x y w h descent space lspace rspace)
(let* ([style (get-style)]
[th (send style get-text-height dc)]
[old-font (send dc get-font)])
@ -357,7 +357,7 @@
(set-box/f! lspace 0)
(set-box/f! rspace 0))))
(define (get-mixed-fraction-extent dc x y w h descent space lspace rspace)
(define/private (get-mixed-fraction-extent dc x y w h descent space lspace rspace)
(let* ([style (get-style)]
[th (send style get-text-height dc)]
[old-font (send dc get-font)])
@ -372,7 +372,7 @@
(set-box/f! lspace 0)
(set-box/f! rspace 0))))
(define (get-decimal-extent dc x y wb hb descent space lspace rspace)
(define/private (get-decimal-extent dc x y wb hb descent space lspace rspace)
(let ([font (send (get-style) get-font)])
(let-values ([(w1 h1 d1 a1) (get-text-extent/f dc unbarred-portion font)]
[(w2 h2 d2 a2) (get-text-extent/f dc barred-portion font)]
@ -400,7 +400,7 @@
[(improper) (draw-improper-fraction dc x y)]
[(decimal) (draw-decimals dc x y)]))
(define (draw-improper-fraction dc x y)
(define/private (draw-improper-fraction dc x y)
(let-values ([(nw nh na nd) (send dc get-text-extent improper-nums)]
[(dw dh da dd) (send dc get-text-extent dens)]
[(ww wh wa wd) (send dc get-text-extent improper-prefix)])
@ -412,7 +412,7 @@
(+ x ww) (+ y dh)
(+ x ww (max nw dw) -1) (+ y dh)))))
(define (draw-mixed-fraction dc x y)
(define/private (draw-mixed-fraction dc x y)
(let-values ([(nw nh na nd) (send dc get-text-extent nums)]
[(dw dh da dd) (send dc get-text-extent dens)]
[(ww wh wa wd) (send dc get-text-extent wholes/frac)])
@ -424,7 +424,7 @@
(+ x ww) (+ y dh)
(+ x ww (max nw dw) -1) (+ y dh)))))
(define (draw-decimals dc x y)
(define/private (draw-decimals dc x y)
(define (draw-digits digits x)
(if digits
(let-values ([(w h a d) (send dc get-text-extent digits)])
@ -458,7 +458,7 @@
(iterate/reflow))]
[else (void)])))
(define (make-right-clickable-menu)
(define/private (make-right-clickable-menu)
(let* ([menu (make-object popup-menu%)]
[decimal-item
(make-object checkable-menu-item%
@ -494,7 +494,7 @@
(iterate/reflow))))
menu))
(define (in-clickable-portion? dc sx sy)
(define/private (in-clickable-portion? dc sx sy)
(and clickable-portion
(let ([font (send (get-style) get-font)])
(let-values ([(w1 h1 d1 a1) (get-text-extent/f dc unbarred-portion font)]