X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=gdk%2Fgdk.objects.lisp;h=c95d800983a5f55423237e6a9c4724ce1e62553b;hb=41ccc9c9f275b2f571b45ca2e64e7bd68a5d1eb4;hp=187d4f11e239243a4e2b43048b43c0b0850b2755;hpb=af529ee695ed09d07b8f1434cf8412e162bd14a7;p=cl-gtk2.git diff --git a/gdk/gdk.objects.lisp b/gdk/gdk.objects.lisp index 187d4f1..c95d800 100644 --- a/gdk/gdk.objects.lisp +++ b/gdk/gdk.objects.lisp @@ -8,14 +8,84 @@ (defcenum notify-type (:ancestor 0) :virtual :inferior :nonlinear :nonlinear-virtual :unknown) (export 'notify-type) -(define-g-object-class "GdkDisplay" display () ()) +(define-g-object-class "GdkDisplay" display () + ((:cffi name display-name (glib:g-string :free-from-foreign nil) + "gdk_display_get_name" nil) + (:cffi n-screens display-n-screens :int + "gdk_display_get_n_screens" nil) + (:cffi default-screen display-default-screen (g-object screen) + "gdk_display_get_default_screen" nil))) + +;gdk_display_get_screen (define-g-object-class "GdkDisplayManager" display-manager () ((default-display display-manager-default-display "default-display" "GdkDisplay" t t))) +(define-g-object-class "GdkVisual" visual () ()) + +(define-g-object-class "GdkColormap" gdk-colormap + (:superclass g-object :export t :interfaces + nil :type-initializer + "gdk_colormap_get_type") + nil) + (define-g-object-class "GdkScreen" screen () ((font-options screen-font-options "font-options" "gpointer" t t) - (resolution screen-resolution "resolution" "gdouble" t t))) + (resolution screen-resolution "resolution" "gdouble" t t) + (:cffi default-colormap screen-default-colormap (g-object colormap) + "gdk_screen_get_default_colormap" "gdk_screen_set_default_colormap") + (:cffi system-colormap screen-system-colormap (g-object colormap) + "gdk_screen_get_system_colormap" nil) + (:cffi system-visual screen-system-visual (g-object visual) + "gdk_screen_get_system_visual" nil) + (:cffi rgb-colormap screen-rgb-colormap (g-object colormap) + "gdk_screen_get_rgb_colormap" nil) + (:cffi rgb-visual screen-visual (g-object visual) + "gdk_screen_get_rgb_visual" nil) + (:cffi rgba-colormap screen-rgba-colormap (g-object colormap) + "gdk_screen_get_rgba_colormap" nil) + (:cffi rgba-visual screen-rgba-visual (g-object visual) + "gdk_screen_get_rgba_visual" nil) + (:cffi composited-p screen-composited-p :boolean + "gdk_screen_is_composited" nil) + (:cffi root-window screen-root-window (g-object gdk-window) + "gdk_screen_get_root_window" nil) + (:cffi display screen-display (g-object display) + "gdk_screen_get_display" nil) + (:cffi number screen-number :int + "gdk_screen_get_number" nil) + (:cffi width screen-widget :int + "gdk_screen_get_width" nil) + (:cffi height screen-height :int + "gdk_screen_get_height" nil) + (:cffi width-mm screen-width-mm :int + "gdk_screen_get_width_mm" nil) + (:cffi height-mm screen-height-mm :int + "gdk_screen_get_height_mm" nil) + (:cffi visuals screen-visuals (glib:glist (g-object visual) :free-from-foreign t) + "gdk_screen_list_visuals" nil) + (:cffi toplevel-windows screen-toplevel-windows (glib:glist (g-object gdk-window) :free-from-foreign t) + "gdk_screen_get_toplevel_windows" nil) + (:cffi display-name screen-display-name (glib:g-string :free-from-foreign t) + "gdk_screen_make_display_name" nil) + (:cffi n-monitors screen-n-monitors :int + "gdk_screen_get_n_monitors" nil) + (:cffi active-window screen-active-window (g-object gdk-window) + "gdk_screen_get_active_window" nil) + (:cffi window-stack screen-window-stack (glib:glist (g-object gdk-window) :free-from-foreign t) + "gdk_screen_get_window_stack" nil))) + +;gdk_screen_get_monitor_geometry +;gdk_screen_get_monitor_at_point +;gdk_screen_get_monitor_at_window +;gdk_screen_get_monitor_height_mm +;gdk_screen_get_monitor_width_mm +;gdk_screen_get_monitor_plug_name +;gdk_screen_broadcast_client_message +;gdk_screen_get_setting +;gdk_spawn_on_screen +;gdk_spawn_on_screen_with_pipes +;gdk_spawn_command_line_on_screen (define-g-object-class "GdkGC" graphics-context () ()) @@ -168,6 +238,46 @@ (export (boxed-related-symbols 'geometry)) +(glib:at-init () (foreign-funcall-pointer (foreign-symbol-pointer "gdk_cursor_get_type") () :int)) + +(gobject:define-g-enum "GdkCursorType" cursor-type (:export t :type-initializer "gdk_cursor_type_get_type") + (:x-cursor 0) (:arrow 2) (:based-arrow-down 4) + (:based-arrow-up 6) (:boat 8) (:bogosity 10) + (:bottom-left-corner 12) (:bottom-right-corner 14) + (:bottom-side 16) (:bottom-tee 18) (:box-spiral 20) + (:center-ptr 22) (:circle 24) (:clock 26) + (:coffee-mug 28) (:cross 30) (:cross-reverse 32) + (:crosshair 34) (:diamond-cross 36) (:dot 38) + (:dotbox 40) (:double-arrow 42) (:draft-large 44) + (:draft-small 46) (:draped-box 48) (:exchange 50) + (:fleur 52) (:gobbler 54) (:gumby 56) (:hand1 58) + (:hand2 60) (:heart 62) (:icon 64) (:iron-cross 66) + (:left-ptr 68) (:left-side 70) (:left-tee 72) + (:leftbutton 74) (:ll-angle 76) (:lr-angle 78) + (:man 80) (:middlebutton 82) (:mouse 84) + (:pencil 86) (:pirate 88) (:plus 90) + (:question-arrow 92) (:right-ptr 94) + (:right-side 96) (:right-tee 98) (:rightbutton 100) + (:rtl-logo 102) (:sailboat 104) + (:sb-down-arrow 106) (:sb-h-double-arrow 108) + (:sb-left-arrow 110) (:sb-right-arrow 112) + (:sb-up-arrow 114) (:sb-v-double-arrow 116) + (:shuttle 118) (:sizing 120) (:spider 122) + (:spraycan 124) (:star 126) (:target 128) + (:tcross 130) (:top-left-arrow 132) + (:top-left-corner 134) (:top-right-corner 136) + (:top-side 138) (:top-tee 140) (:trek 142) + (:ul-angle 144) (:umbrella 146) (:ur-angle 148) + (:watch 150) (:xterm 152) (:last-cursor 153) + (:blank-cursor -2) (:cursor-is-pixmap -1)) + +(export 'cursor-type) + +(define-g-boxed-cstruct cursor "GdkCursor" + (type cursor-type)) + +(export (boxed-related-symbols 'cursor)) + (defctype gdk-atom :pointer) (define-foreign-type gdk-atom-as-string-type ()