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

gtk: fix frame position tracking

Browse Source 
Closes PR 11931
This commit is contained in:
Matthew Flatt 2011-08-03 10:11:33 -06:00
parent 78bdcbd071
commit cdf2085703
2 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mred/private/wx/gtk/frame.rkt
View File

@ -91,6 +91,8 @@
(let ([wx (gtk->wx gtk)])
(when wx
(send wx remember-size
(GdkEventConfigure-x a)
(GdkEventConfigure-y a)
(GdkEventConfigure-width a)
(GdkEventConfigure-height a))))
#f))

8
collects/mred/private/wx/gtk/window.rkt
View File

@ -465,12 +465,16 @@
(gtk_widget_set_size_request child-gtk w h)
(gtk_widget_size_allocate child-gtk (make-GtkAllocation x y w h)))
(define/public (remember-size w h)
(define/public (remember-size x y w h)
;; called in event-pump thread
(unless (and (= save-w w)
(= save-h h))
(= save-h h)
(= save-x x)
(= save-y y))
(set! save-w w)
(set! save-h h)
(set! save-x x)
(set! save-y y)
(queue-on-size)))
(define/public (queue-on-size) (void))