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

another Gtk frame-size repair

Browse Source
This commit is contained in:
Matthew Flatt 2010-07-31 11:48:17 -06:00
parent 4425dd894d
commit 3d9c68105e
2 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -191,9 +191,9 @@
(if (= x -11111) -2 x) (if (= x -11111) -2 x)
(if (= y -11111) -2 y))) (if (= y -11111) -2 y)))
(define/override (set-top-size x y w h) (define/override (really-set-size gtk x y w h)
(set-top-position x y) (set-top-position x y)
(gtk_window_resize gtk w h)) (gtk_window_resize gtk (max 1 w) (max 1 h)))
(define/override (direct-show on?) (define/override (direct-show on?)
(super direct-show on?) (super direct-show on?)

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

@ -273,16 +273,15 @@
(unless (= h -1) (set! save-h h)) (unless (= h -1) (set! save-h h))
(tentative-client-size (+ save-w client-delta-w) (tentative-client-size (+ save-w client-delta-w)
(+ save-h client-delta-h)) (+ save-h client-delta-h))
(if parent (really-set-size gtk save-x save-y save-w save-h)))
(send parent set-child-size gtk save-x save-y save-w save-h)
(set-top-size save-x save-y save-w save-h)))) (define/public (really-set-size gtk x y w h)
(send parent set-child-size gtk x y w h))
(define/public (set-child-size child-gtk x y w h) (define/public (set-child-size child-gtk x y w h)
(gtk_widget_set_size_request child-gtk w h) (gtk_widget_set_size_request child-gtk w h)
(gtk_widget_size_allocate child-gtk (make-GtkAllocation x y w h))) (gtk_widget_size_allocate child-gtk (make-GtkAllocation x y w h)))
(define/public (set-top-size x y w h) (void))
(define/public (remember-size w h) (define/public (remember-size w h)
;; called in event-pump thread ;; called in event-pump thread
(unless (and (= save-w w) (unless (and (= save-w w)