;; 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.43 2006/02/15 09:47:42 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))
: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