;; 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.41 2006/02/06 11:59:47 espen Exp $
+;; $Id: gtktypes.lisp,v 1.45 2006/02/26 23:37:18 espen Exp $
(in-package "GTK")
(deftype position ()
'(or int (enum (:start 0) (:end -1) (:first 0) (:last -1))))
-(defmethod reader-function ((type (eql 'position)) &rest args)
- (declare (ignore type args))
+(define-type-method from-alien-form ((type position) form)
+ (declare (ignore type))
+ (from-alien-form 'int form))
+
+(define-type-method from-alien-function ((type position))
+ (declare (ignore type))
+ (from-alien-function 'int))
+
+(define-type-method reader-function ((type position))
+ (declare (ignore type))
(reader-function 'int))
("GtkWidget"
:slots
((child-properties
- :allocation :special
+ :special t
:accessor widget-child-properties
:type container-child)
(window
:type boolean)
(icon-list
:allocation :virtual
- :getter "gtk_window_get_icon_list"
+ :getter %window-get-icon-list
:setter "gtk_window_set_icon_list"
:accessor window-icon-list
:initarg :icon-list
:initarg :tearoff-state
:type boolean)))
+ ("GtkPlug"
+ :slots
+ ((id
+ :allocation :virtual
+ :getter "gtk_plug_get_id"
+ :reader plug-id
+ :type gdk:native-window)))
+
+ ("GtkSocket"
+ :slots
+ ((id
+ :allocation :virtual
+ :getter "gtk_socket_get_id"
+ :reader socket-id
+ :type gdk:native-window)))
+
("GtkToolbar"
:slots
((show-tooltips