set svn:eol-style and newlines at eofs
svn: r11525
This commit is contained in:
parent
be989d5cc5
commit
0453be932b
|
@ -16,4 +16,4 @@
|
|||
(min-width (send bm get-width))
|
||||
(min-height (send bm get-height)))
|
||||
(super-new (stretchable-width #f)
|
||||
(stretchable-height #f))))
|
||||
(stretchable-height #f))))
|
||||
|
|
|
@ -97,7 +97,7 @@
|
|||
(define-type-alias Bitmap-Message% (Class ()
|
||||
([parent Any])
|
||||
([set-bm ((Instance Bitmap%) -> Void)])))
|
||||
|
||||
|
||||
|
||||
(require/typed "bitmap-message.ss"
|
||||
[bitmap-message% Bitmap-Message%])
|
||||
[bitmap-message% Bitmap-Message%])
|
||||
|
|
|
@ -13,4 +13,4 @@
|
|||
(syntax-case stx (quote)
|
||||
[(_ (quote sym))
|
||||
(with-syntax ([nm (datum->syntax stx (string->symbol (string-append "preferences:get" "-" (symbol->string (syntax-e #'sym)))))])
|
||||
(syntax/loc stx (nm)))]))
|
||||
(syntax/loc stx (nm)))]))
|
||||
|
|
Loading…
Reference in New Issue
Block a user