+
+
+(define-foreign draw-hline () nil
+ (style style)
+ (window gdk:window)
+ (state state-type)
+ (x1 int)
+ (x2 int)
+ (y int))
+
+(define-foreign draw-vline () nil
+ (style style)
+ (window gdk:window)
+ (state state-type)
+ (y1 int)
+ (y2 int)
+ (x int))
+
+(define-foreign draw-shadow () nil
+ (style style)
+ (window gdk:window)
+ (state state-type)
+ (shadow shadow-type)
+ (x int)
+ (y int)
+ (width int)
+ (height int))
+
+; (define-foreign draw-polygon () nil
+; (style style)
+; (window gdk:window)
+; (state state-type)
+; (shadow shadow-type)
+; (points (vector gdk:point))
+; ((length points) int)
+; (fill boolean))
+
+(define-foreign draw-arrow () nil
+ (style style)
+ (window gdk:window)
+ (state state-type)
+ (shadow shadow-type)
+ (arrow arrow-type)
+ (fill boolean)
+ (x int)
+ (y int)
+ (width int)
+ (height int))
+
+(define-foreign draw-diamond () nil
+ (style style)
+ (window gdk:window)
+ (state state-type)
+ (shadow shadow-type)
+ (x int)
+ (y int)
+ (width int)
+ (height int))
+
+; (define-foreign draw-oval () nil
+; (style style)
+; (window gdk:window)
+; (state state-type)
+; (shadow shadow-type)
+; (x int)
+; (y int)
+; (width int)
+; (height int))
+
+(define-foreign draw-string () nil
+ (style style)
+ (window gdk:window)
+ (state state-type)
+ (x int)
+ (y int)
+ (string string))
+
+(define-foreign draw-box () nil
+ (style style)
+ (window gdk:window)
+ (state state-type)
+ (shadow shadow-type)
+ (x int)
+ (y int)
+ (width int)
+ (height int))
+
+(define-foreign draw-flat-box () nil
+ (style style)
+ (window gdk:window)
+ (state state-type)
+ (shadow shadow-type)
+ (x int)
+ (y int)
+ (width int)
+ (height int))
+
+(define-foreign draw-check () nil
+ (style style)
+ (window gdk:window)
+ (state state-type)
+ (shadow shadow-type)
+ (x int)
+ (y int)
+ (width int)
+ (height int))
+
+(define-foreign draw-option () nil
+ (style style)
+ (window gdk:window)
+ (state state-type)
+ (shadow shadow-type)
+ (x int)
+ (y int)
+ (width int)
+ (height int))
+
+; (define-foreign draw-cross () nil
+; (style style)
+; (window gdk:window)
+; (state state-type)
+; (shadow shadow-type)
+; (x int)
+; (y int)
+; (width int)
+; (height int))
+
+; (define-foreign draw-ramp () nil
+; (style style)
+; (window gdk:window)
+; (state state-type)
+; (shadow shadow-type)
+; (arrow arrow-type)
+; (x int)
+; (y int)
+; (width int)
+; (height int))
+
+(define-foreign draw-tab () nil
+ (style style)
+ (window gdk:window)
+ (state state-type)
+ (x int)
+ (y int)
+ (width int)
+ (height int))
+
+(define-foreign draw-shadow-gap () nil
+ (style style)
+ (window gdk:window)
+ (state state-type)
+ (x int)
+ (y int)
+ (width int)
+ (height int)
+ (gap-side position-type)
+ (gap-x int)
+ (gap-width int))
+
+(define-foreign draw-box-gap () nil
+ (style style)
+ (window gdk:window)
+ (state state-type)
+ (x int)
+ (y int)
+ (width int)
+ (height int)
+ (gap-side position-type)
+ (gap-x int)
+ (gap-width int))
+
+(define-foreign draw-extension () nil
+ (style style)
+ (window gdk:window)
+ (state state-type)
+ (x int)
+ (y int)
+ (width int)
+ (height int))
+
+(define-foreign draw-focus () nil
+ (style style)
+ (window gdk:window)
+ (x int)
+ (y int)
+ (width int)
+ (height int))
+
+(define-foreign draw-slider () nil
+ (style style)
+ (window gdk:window)
+ (state state-type)
+ (shadow shadow-type)
+ (x int)
+ (y int)
+ (width int)
+ (height int)
+ (orientation orientation))
+
+(define-foreign draw-handle () nil
+ (style style)
+ (window gdk:window)
+ (state state-type)
+ (shadow shadow-type)
+ (x int)
+ (y int)
+ (width int)
+ (height int)
+ (orientation orientation))
+
+(define-foreign draw-handle () nil
+ (style style)
+ (window gdk:window)
+ (state state-type)
+ (shadow shadow-type)
+ (x int)
+ (y int)
+ (width int)
+ (height int)
+ (orientation orientation))
+
+(define-foreign paint-hline () nil
+ (style style)
+ (window gdk:window)
+ (state state-type)
+ (x1 int)
+ (x2 int)
+ (y int))