Changeset 112 for widgets/password.r
- Timestamp:
- 12/31/07 22:18:08 (11 months ago)
- Files:
-
- 1 modified
-
widgets/password.r (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
widgets/password.r
r75 r112 9 9 } 10 10 size: 50x5 11 color: colors/page 11 12 font: make default-font [size: to integer! sizes/font * 1.5 name: font-fixed] 12 rebind: make function! [] [font/size: to integer! sizes/font * 1.5] 13 rebind: make function! [] [ 14 color: colors/page 15 font/size: to integer! sizes/font * 1.5 16 ] 13 17 init: make function! [/local p char-width radius] [ 14 18 p: self 15 19 para: make para [] 16 20 pane: make subface [ 17 color: colors/ edit21 color: colors/page 18 22 effect: [draw [pen black fill-pen black]] 19 23 feel: make default-feel []
