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

..

Browse Source 
original commit: 9b2ebb140b3ef544c596c8eb67070e1f61656b10
This commit is contained in:
Robby Findler 2002-03-27 19:16:36 +00:00
parent 301f5c10cb
commit e7ae508e52
3 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/framework/private/icon.ss
View File

@ -32,8 +32,8 @@
[f [f
(lambda () (lambda ()
(let ([bitmap (make-object bitmap% p type)]) (let ([bitmap (make-object bitmap% p type)])
(set! f (lambda () bitmap)) (set! f (lambda () bitmap))
bitmap))]) bitmap))])
(unless (file-exists? p) (unless (file-exists? p)
(fprintf (current-error-port) "WARNING: couldn't find ~a~n" p)) (fprintf (current-error-port) "WARNING: couldn't find ~a~n" p))
(lambda () (lambda ()

1
collects/framework/private/panel.ss
View File

@ -267,6 +267,7 @@
cursor-gaps)]) cursor-gaps)])
(set-cursor (and (or gap (set-cursor (and (or gap
resizing-y) resizing-y)
(send (icon:get-up/down-cursor) ok?)
(icon:get-up/down-cursor))) (icon:get-up/down-cursor)))
(cond (cond
[(and gap (send evt button-down? 'left)) [(and gap (send evt button-down? 'left))

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

@ -556,7 +556,8 @@
left left
right right
(if error? mismatch-color match-color) (if error? mismatch-color match-color)
(icon:get-paren-highlight-bitmap) (and (send (icon:get-paren-highlight-bitmap) ok?)
(icon:get-paren-highlight-bitmap))
(= there here left))]) (= there here left))])
(set! clear-old-locations (set! clear-old-locations
(let ([old clear-old-locations]) (let ([old clear-old-locations])