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

.

Browse Source 
original commit: a12287a880cb69b64fcad0e864aede09823a866c
This commit is contained in:
Matthew Flatt 2003-05-08 19:47:24 +00:00
parent bcec69848e
commit 617f350af5
2 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/mred/edit.ss
View File

@ -65,8 +65,8 @@
(o . is-a? . editor<%>)
(send o change-style
(make-object style-delta% 'change-smoothing v)))))))])
(mk "Default" 'family+size-default)
(mk "System Default" 'system-default)
(mk "Default" 'default)
(mk "Partly Smoothed" 'partly-smoothed)
(mk "Smoothed" 'smoothed)
(mk "Not Smoothed" 'unsmoothed)))

9
collects/mred/mred.ss
View File

@ -3356,6 +3356,7 @@
(send d set-delta 'change-style (send f get-style))
(send d set-delta 'change-weight (send f get-weight))
(send d set-delta 'change-underline (send f get-underlined))
(send d set-delta 'change-smoothing (send f get-smoothing))
d)
(define wx-text-field%
@ -6703,7 +6704,7 @@
(make-object radio-box% #f '("Normal" "Bold" "Light") pnl refresh-sample))]
[underlined (make-object check-box% "Underlined" p2 refresh-sample)]
[size (make-object slider% "Size:" 4 127 p2 refresh-sample 12)]
[smoothing (make-object choice% "Smoothing:" '("Default" "Partial" "Enabled" "Disabled") p2 refresh-sample)]
[smoothing (make-object choice% "Smoothing:" '("Default" "Some" "Full" "None") p2 refresh-sample)]
[sample (make-object text-field% "Sample" f void "The quick brown fox jumped over the lazy dog" '(multiple))]
[edit (send sample get-editor)]
[done (lambda (ok) (lambda (b e) (set! ok? ok) (send f show #f)))]
@ -6714,8 +6715,8 @@
(case (send weight get-selection) [(0) 'normal] [(1) 'bold] [(2) 'light])
(send underlined get-value)
(case (send smoothing get-selection)
[(0) 'family+size-default]
[(1) 'system-default]
[(0) 'default]
[(1) 'partly-smoothed]
[(2) 'smoothed]
[(3) 'unsmoothed])))))]
[bp (make-object horizontal-pane% f)]
@ -7211,7 +7212,7 @@
[(system) "systemfont"]
[(default) "applicationfont"]
[(roman) "Times"]
[(decorative) "Geneva"]
[(decorative) "Arial"]
[(modern) "Courier New"]
[(swiss) "Helvetica"]
[(script) "Apple Chancery"]