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

.

Browse Source 
original commit: c93306028083b9e583ff3dfe8a2c4fb2b9f54c85
This commit is contained in:
Matthew Flatt 2002-06-10 22:27:55 +00:00
parent 5a12fc1492
commit 61f691b257
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -295,8 +295,9 @@
cursor-gaps)])
(set-cursor (and (or gap
resizing-dim)
(send (icon:get-up/down-cursor) ok?)
(get-gap-cursor)))
(let ([c (get-gap-cursor)])
(and (send c ok?)
c))))
(cond
[(and gap (send evt button-down? 'left))
(set! resizing-dim (event-get-dim evt))
@ -322,7 +323,9 @@
(set! resizing-dim (event-get-dim evt))
(container-flow-modified))))]
[else (super-on-subwindow-event receiver evt)]))
(super-on-subwindow-event receiver evt)))
(begin
(set-cursor #f)
(super-on-subwindow-event receiver evt))))
(define cursor-gaps null)