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

..

Browse Source 
original commit: f0d369cbd78dee61867e195dc32ca38cad21e3e8
This commit is contained in:
Robby Findler 2002-08-18 22:02:14 +00:00
parent 112768080f
commit d84a9e2991
2 changed files with 41 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
collects/framework/gui-utils.ss
View File

@ -484,10 +484,12 @@
(min-width (floor (inexact->exact (get-total-width (get-dc))))))) (min-width (floor (inexact->exact (get-total-width (get-dc)))))))
;; selected-text-color : color ;; selected-text-color : color
(define selected-text-color (make-object color% "black")) (define selected-text-color (send the-color-database find-color "black"))
;; unselected-text-color : color ;; unselected-text-color : color
(define unselected-text-color (make-object color% "black")) (define unselected-text-color (case (system-type)
[(macosx) (make-object color% 75 75 75)]
[else (send the-color-database find-color "black")]))
;; selected-brush : brush ;; selected-brush : brush
(define selected-brush (send the-brush-list find-or-create-brush "WHITE" 'solid)) (define selected-brush (send the-brush-list find-or-create-brush "WHITE" 'solid))
@ -496,9 +498,15 @@
(define unselected-brush (send the-brush-list find-or-create-brush (get-panel-background) 'solid)) (define unselected-brush (send the-brush-list find-or-create-brush (get-panel-background) 'solid))
;; button-down/over-brush : brush ;; button-down/over-brush : brush
(define button-down/over-brush (send the-brush-list find-or-create-brush (define button-down/over-brush
(case (system-type)
[(macosx) (send the-brush-list find-or-create-brush
"light blue"
'solid)]
[else
(send the-brush-list find-or-create-brush
(make-object color% 225 225 255) (make-object color% 225 225 255)
'solid)) 'solid)]))
;; label-font : font ;; label-font : font
(define label-font (send the-font-list find-or-create-font (define label-font (send the-font-list find-or-create-font

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

@ -858,8 +858,14 @@
#t)) #t))
(define box-comment-out-selection (define box-comment-out-selection
(opt-lambda ([start-pos (get-start-position)] (opt-lambda ([_start-pos 'start]
[end-pos (get-end-position)]) [_end-pos 'end])
(let ([start-pos (if (eq? _start-pos 'start)
(get-start-position)
_start-pos)]
[end-pos (if (eq? _end-pos 'end)
(get-end-position)
_end-pos)])
(begin-edit-sequence) (begin-edit-sequence)
(split-snip start-pos) (split-snip start-pos)
(split-snip end-pos) (split-snip end-pos)
@ -879,7 +885,7 @@
(insert cb start-pos) (insert cb start-pos)
(set-position start-pos start-pos)) (set-position start-pos start-pos))
(end-edit-sequence) (end-edit-sequence)
#t)) #t)))
(define uncomment-selection (define uncomment-selection
(opt-lambda ([start-pos (get-start-position)] (opt-lambda ([start-pos (get-start-position)]