ui.backend.gtk: connect ui signals before realizing the widget
gtk_widget_add_events() needs to be called before gtk_widget_realize() otherwise oxygen-gtk will steal all lmb clicksdb4
parent
c4472362ea
commit
3bbdd067be
|
@ -465,14 +465,13 @@ M:: gtk-ui-backend (open-window) ( world -- )
|
||||||
gtk_window_set_wmclass
|
gtk_window_set_wmclass
|
||||||
|
|
||||||
world configure-gl
|
world configure-gl
|
||||||
|
|
||||||
win gtk_widget_realize
|
|
||||||
win world window-controls>> configure-window-controls
|
|
||||||
|
|
||||||
win im configure-im
|
win im configure-im
|
||||||
win connect-user-input-signals
|
win connect-user-input-signals
|
||||||
win connect-win-state-signals
|
win connect-win-state-signals
|
||||||
|
|
||||||
|
win gtk_widget_realize
|
||||||
|
win world window-controls>> configure-window-controls
|
||||||
|
|
||||||
win gtk_widget_show_all ;
|
win gtk_widget_show_all ;
|
||||||
|
|
||||||
M: gtk-ui-backend (close-window) ( handle -- )
|
M: gtk-ui-backend (close-window) ( handle -- )
|
||||||
|
@ -552,4 +551,3 @@ os unix? os macosx? not and [
|
||||||
|
|
||||||
M: gtk-ui-backend ui-backend-available?
|
M: gtk-ui-backend ui-backend-available?
|
||||||
"DISPLAY" os-env >boolean ;
|
"DISPLAY" os-env >boolean ;
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue