;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
-;; $Id: gtktypes.lisp,v 1.53 2007-01-14 23:22:19 espen Exp $
+;; $Id: gtktypes.lisp,v 1.56 2007-07-09 12:50:21 espen Exp $
(in-package "GTK")
; deprecated property
((shadow :ignore t)))
-;; ("GtkTable"
-;; :slots
-;; ((column-spacing
-;; :allocation :virtual
-;; :getter "gtk_table_get_default_col_spacing"
-;; :setter "gtk_table_set_col_spacings"
-;; :initarg :column-spacing
-;; :type unsigned-int)
-;; (row-spacing
-;; :allocation :virtual
-;; :getter "gtk_table_get_default_row_spacing"
-;; :setter "gtk_table_set_row_spacings"
-;; :initarg :row-spacing
-;; :type unsigned-int)))
+ ("GtkTable"
+ :slots
+ ((column-spacing
+ :allocation :property :pname "column-spacing"
+ :initarg :column-spacing
+ :type unsigned-int)
+ (row-spacing
+ :allocation :property :pname "row-spacing"
+ :initarg :row-spacing
+ :type unsigned-int)))
("GtkDialog"
:slots
:type selection-mode)
(tree-view
:allocation :virtual
- :getter "gtk_tree_selection_get_mode"
- :reader tree-selection-mode
+ :getter "gtk_tree_selection_get_tree_view"
+ :reader tree-selection-tree-view
:type tree-view)))
("GtkComboBox"
:initarg :pixbuf-column
:accessor icon-view-pixbuf-column)))
+ #?(pkg-exists-p "gtk+-2.0" :atleast-version "2.10.0")
+ ("GtkAssistant"
+ :slots
+ ((current-page
+ :allocation :virtual
+ :getter "gtk_assistant_get_current_page"
+ :setter "gtk_assistant_set_current_page"
+ :accessor assistant-current-page
+ :type int)
+ (num-pages
+ :allocation :virtual
+ :getter "gtk_assistant_get_n_page"
+ :reader assistant-current-page
+ :type int)))
+
+
;; Not needed
("GtkFundamentalType" :ignore t)
("GtkArgFlags" :ignore t)