;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
-;; $Id: gdktypes.lisp,v 1.21 2006/01/30 15:40:16 espen Exp $
+;; $Id: gdktypes.lisp,v 1.23 2006/04/10 18:16:24 espen Exp $
(in-package "GDK")
(defclass color (boxed)
((pixel
:allocation :alien
- :type unsigned-long)
+ :type (unsigned 32))
(red
:allocation :alien
:accessor color-red
- :type unsigned-short)
+ :type (unsigned 16))
(green
:allocation :alien :offset 6
:accessor color-green
- :type unsigned-short)
+ :type (unsigned 16))
(blue
:allocation :alien :offset 8
:accessor color-blue
- :type unsigned-short))
+ :type (unsigned 16)))
(:metaclass boxed-class))
:shift :lock :control :mod1 :mod2 :mod3 :mod4 :mod5
:button1 :button2 :button3 :button4 :button5
(:release #.(ash 1 30)))
+
+(deftype native-window () '(unsigned 32))