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

...

Browse Source 
original commit: e2feb3c3731402afb70ca2b2e59c23632884f4b1
This commit is contained in:
Mike MacHenry 2003-12-18 23:50:56 +00:00
parent d6506f3c14
commit b083349699
1 changed files with 13 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
collects/test-suite/private/fixed-width-label-snip.ss
View File

@ -3,8 +3,7 @@
(require
(lib "class.ss")
(lib "list.ss")
(lib "mred.ss" "mred")
(lib "debug.ss" "mike-lib"))
(lib "mred.ss" "mred"))
(provide fixed-width-label-snip)
@ -19,7 +18,7 @@
(top-margin 5)
(bottom-margin 5))
(field [font (make-object font% 12 'roman 'normal 'normal)])
(field [font (make-object font% 10 'roman 'normal 'normal)])
(unless (member label labels)
(error 'fixed-width-label-snip
@ -101,15 +100,15 @@
;;;;;;;;;;
;; tests
(define mylabels (list "Call" "Expected" "Actual"))
(define label% (fixed-width-label-snip mylabels))
(define align? #t)
(define f (new frame% (label "test") (width 175) (height 175)))
(define e (new pasteboard%))
(define c (new editor-canvas% (editor e) (parent f)))
(for-each
(lambda (s)
(send e insert (new label% (label s))))
'("Expected"))
(send f show #t)
;(define mylabels (list "Call" "Expected" "Actual"))
;(define label% (fixed-width-label-snip mylabels))
;(define align? #t)
;(define f (new frame% (label "test") (width 175) (height 175)))
;(define e (new pasteboard%))
;(define c (new editor-canvas% (editor e) (parent f)))
;(for-each
; (lambda (s)
; (send e insert (new label% (label s))))
; '("Expected"))
;(send f show #t)
)