steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

ui.backend.gtk: simplify calls to gtk_init.

locals-and-roots
John Benediktsson 2016-04-04 14:26:19 -07:00
parent 7a5142e0ca
commit 1f063155a9
1 changed files with 12 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
basis/ui/backend/gtk/gtk.factor
View File

@ -1,15 +1,17 @@
! Copyright (C) 2010, 2011 Anton Gorenko, Philipp Bruschweiler. ! Copyright (C) 2010, 2011 Anton Gorenko, Philipp Bruschweiler.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors alien.accessors alien.c-types alien.data USING: accessors alien.accessors alien.c-types alien.data
alien.strings arrays assocs classes.struct combinators continuations alien.strings arrays assocs classes.struct combinators
destructors environment gdk.ffi gdk.gl.ffi gdk.pixbuf.ffi glib.ffi continuations destructors environment gdk.ffi gdk.gl.ffi
gobject-introspection.standard-types gobject.ffi gtk.ffi gtk.gl.ffi gdk.pixbuf.ffi glib.ffi gobject-introspection.standard-types
io.encodings.binary io.encodings.utf8 io.files kernel libc literals gobject.ffi gtk.ffi gtk.gl.ffi io.encodings.binary
locals math math.bitwise math.vectors namespaces sequences strings io.encodings.utf8 io.files kernel libc literals locals math
system threads ui ui.backend ui.backend.gtk.input-methods math.bitwise math.vectors namespaces sequences strings system
threads ui ui.backend ui.backend.gtk.input-methods
ui.backend.gtk.io ui.clipboards ui.event-loop ui.gadgets ui.backend.gtk.io ui.clipboards ui.event-loop ui.gadgets
ui.gadgets.private ui.gadgets.worlds ui.gestures ui.pixel-formats ui.gadgets.private ui.gadgets.worlds ui.gestures
ui.pixel-formats.private ui.private vocabs.loader ; ui.pixel-formats ui.pixel-formats.private ui.private
vocabs.loader ;
IN: ui.backend.gtk IN: ui.backend.gtk
SINGLETON: gtk-ui-backend SINGLETON: gtk-ui-backend
@ -535,8 +537,8 @@ M:: gtk-ui-backend system-alert ( caption text -- )
M: gtk-ui-backend (with-ui) M: gtk-ui-backend (with-ui)
[ [
0 gint <ref> f void* <ref> gtk_init f f gtk_init
0 gint <ref> f void* <ref> gtk_gl_init f f gtk_gl_init
load-icon load-icon
init-clipboard init-clipboard
start-ui start-ui