(defclass gdk-context (cl-cairo2:context)
())
-
+
(defun create-gdk-context (gdk-drawable)
- "creates an context to draw on a GTK widget, more precisely on the
+ "Creates a context to draw on a GTK widget, more precisely on the
associated gdk-window. This should only be called from within the
expose event. In cells-gtk, use (gtk-adds-widget-window gtk-pointer)
to obtain the gdk-window. 'gtk-pointer' is the pointer parameter
(drawable (g-object drawable)))
(defun gdk-cairo-reset-clip (drawable &optional (context cl-cairo2:*context*))
- (gdk_cairo_reset_clip (slot-value context 'cl-cairo2:pointer) drawable))
\ No newline at end of file
+ (gdk_cairo_reset_clip (slot-value context 'cl-cairo2:pointer) drawable))
"GtkTextTagTable" "GtkTreeModelFilter" "GtkTreeModelSort"
"GtkTreeSelection" "GtkTreeStore" "GtkUIManager" "GtkWindowGroup"
"GtkToggleAction" "GtkRecentAction" "GtkRadioAction" "GtkItemFactory"
- "GtkPageSetupUnixDialog" "GtkPrintUnixDialog")
+ "GtkPageSetupUnixDialog" "GtkPrintUnixDialog" "GtkInfoBar" "GtkSpinner")
:flags '("GtkTextSearchFlags" "GtkAccelFlags" "GtkArgFlags" "GtkAttachOptions"
"GtkButtonAction" "GtkCalendarDisplayOptions" "GtkCellRendererState"
"GtkDebugFlag" "GtkDestDefaults" "GtkDialogFlags" "GtkFileFilterFlags"
"gtk_bin_get_child" nil))
("GtkTextChildAnchor"
(:cffi gtk::deleted-p gtk::text-child-anchor-deleted-p :boolean
- "gtk_text_child_anchor_get_deleted" nil))))))
+ "gtk_text_child_anchor_get_deleted" nil))
+ ("GtkInfoBar"
+ (:cffi gtk::action-area gtk::info-bar-action-area (g-object gtk::widget)
+ "gtk_info_bar_get_action_area" nil)
+ (:cffi gtk::content-area gtk::info-bar-content-area (g-object gtk::widget)
+ "gtk_info_bar_get_content_area" nil))))))
(defun gtk-generate-child-properties (filename)
(with-open-file (stream filename :direction :output :if-exists :supersede)
(*print-case* :downcase))
(write-string "(in-package :gtk)" stream)
(terpri stream)
- (format stream "~{~S~%~%~}" (gtk:generate-child-properties)))))
\ No newline at end of file
+ (format stream "~{~S~%~%~}" (gtk:generate-child-properties)))))
(:file "gtk.main_loop_events")
(:file "gtk.object")
(:file "gtk.objects")
- (:file "gtk.generated-classes")
+ (:file "gtk.generated-classes")
(:file "gtk.functions")
(:file "gtk.base-classes")
(:file "gtk.dialog")
(:file "gtk.tree-store")
(:file "gtk.tree-model-filter")
(:file "gtk.clipboard")
-
+ (:file "gtk.info-bar")
+ (:file "gtk.spinner")
+ (:file "gtk.markup")
+
(:file "gtk.main-loop-events")
-
+
(:file "gtk.generated-child-properties")
-
+
(:file "gtk.high-level")
(:file "ui-markup")
(:file "gtk.dialog.example")
-
+
(:file "gtk.demo")
(:file "gtk.timer")
(:file "gtk.finalize-classes")
--- /dev/null
+(in-package :gtk)
+
+(defcfun (info-bar-add-button "gtk_info_bar_add_button") (g-object widget)
+ (info-bar (g-object info-bar))
+ (button-text :string)
+ (response-id :int))
+
+(export 'info-bar-add-button)
+
+(defcfun (info-bar-add-action-widget "gtk_info_bar_add_action_widget") :void
+ (info-bar (g-object info-bar))
+ (widget (g-object widget))
+ (response-id :int))
+
+(export 'info-bar-add-action-widget)
--- /dev/null
+(in-package :gtk)
+
+(defcfun |g_markup_escape_text| :string
+ (raw :string)
+ (size :int))
+
+(defun markup-escape-text (raw)
+ (cffi:with-foreign-string (s raw)
+ (|g_markup_escape_text| s (length raw))))
+
+(export 'markup-escape-text)
--- /dev/null
+(in-package :gtk)
+
+(defcfun (spinner-start "gtk_spinner_start") :void
+ (spinner (g-object gtk:spinner)))
+
+(defcfun (spinner-stop "gtk_spinner_stop") :void
+ (spinner (g-object gtk:spinner)))
+
+(export '(spinner-start spinner-stop))