;; 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.56 2007-07-09 12:50:21 espen Exp $
+;; $Id: gtktypes.lisp,v 1.60 2007-10-17 18:02:05 espen Exp $
(in-package "GTK")
(defclass allocation (struct)
((x
:allocation :alien
- :accessor allocation-width
+ :accessor allocation-x
:initarg :x
:type int)
(y
:allocation :alien
- :accessor allocation-width
- :initarg :width
+ :accessor allocation-y
+ :initarg :y
:type int)
(width
:allocation :alien
(width-request
:merge t :unbound -1)
(height-request
- :merge t :unbound -1)))
+ :merge t :unbound -1)
+ #?-(pkg-exists-p "gtk+-2.0" :atleast-version "2.12.0")
+ (tooltip-window
+ :allocation :virtual
+ :getter "gtk_widget_get_tooltip_window"
+ :setter "gtk_widget_set_tooltip_window"
+ :accessor widget-tooltip-window
+ :initarg :tooltip-window
+ :type window)))
("GtkContainer"
:slots
:accessor menu-item-right-justified-p
:initarg :right-justified
:type boolean)
+ #?-(pkg-exists-p "gtk+-2.0" :atleast-version "2.12.0")
(submenu
:allocation :virtual
:getter "gtk_menu_item_get_submenu"
:reader entry-completion-entry
:type entry)
(minimum-key-length :merge t :unbound -1)
+ ;; Need to be manually defined, as this value through the property
+ ;; mechanism doesn't work
#?(pkg-exists-p "gtk+-2.0" :atleast-version "2.6.0")
- (text-column :merge t :unbound -1)))
+ (text-column
+ :allocation :virtual
+ :getter "gtk_entry_completion_get_text_column"
+ :setter "gtk_entry_completion_set_text_column"
+ :unbound -1
+ :accessor entry-completion-text-column
+ :type int)))
("GtkRadioButton"
:slots
:reader assistant-current-page
:type int)))
+ #?(pkg-exists-p "gtk+-2.0" :atleast-version "2.10.0")
+ ("GtkRecentChooser"
+ :slots
+ ((current-item
+ :allocation :virtual
+ :getter "gtk_recent_chooser_get_current_item"
+ :reader recent-chooser-current-item
+ :type recent-info)
+ (current-uri
+ :allocation :virtual
+ :getter "gtk_recent_chooser_get_current_uri"
+ :setter %recent-chooser-set-current-uri
+ :accessor recent-chooser-current-uri
+ :type string)))
;; Not needed
("GtkFundamentalType" :ignore t)