;; 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.40 2006/02/04 12:18:12 espen Exp $
+;; $Id: gtktypes.lisp,v 1.44 2006/02/26 15:30:01 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
:no-drop :drop-into :drop-left :drop-right :drop-above :drop-below)
-
(defclass target-entry (struct)
((target
:allocation :alien
:type unsigned-int))
(:metaclass struct-class))
-(deftype target-list () 'pointer)
+
+(defclass selection-data (boxed)
+ ((selection
+ :allocation :alien :type gdk:atom
+ :reader selection-data-selection)
+ (target
+ :allocation :alien :type gdk:atom
+ :reader selection-data-target)
+ (type
+ :allocation :alien :type gdk:atom
+ :reader selection-data-type)
+ (format
+ :allocation :alien :type int
+ :reader selection-data-format)
+ (data
+ :allocation :alien :type pointer
+ :reader selection-data-data)
+ (length
+ :allocation :alien :type int
+ :reader selection-data-length)
+ (display
+ :allocation :alien :type gdk:display
+ :reader selection-data-display))
+ (:metaclass boxed-class))
+
+
+(defclass target-list (proxy)
+ ()
+ (:metaclass proxy-class))