;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
-;; $Id: gdk.lisp,v 1.19 2006/02/07 13:22:14 espen Exp $
+;; $Id: gdk.lisp,v 1.20 2006/02/08 22:20:22 espen Exp $
(in-package "GDK")
(defmethod initialize-instance ((cursor cursor) &key type mask fg bg
(x 0) (y 0) (display (display-get-default)))
(setf
- (slot-value cursor 'location)
+ (foreign-location cursor)
(etypecase type
(keyword (%cursor-new-for-display display type))
(pixbuf (%cursor-new-from-pixbuf display type x y))