;;; -*- Mode: LISP; Syntax: Common-Lisp; Package: XIT; Base: 10; -*-

(in-package :xit)

(setf *md* (make-window 'masked-bitmap-dispel :bitmap "search-button" :clipmask "search-button-mask"
			:x 200 :y 100 :mbackground "wheat" :foreground "blueviolet"))
(setf *me* (make-window 'transparent-masked-bitmap-dispel :bitmap "search-button" :clipmask "search-button"
			:x 200 :y 100 :mbackground "wheat" :foreground "blueviolet"))

(setf *mt* (make-window 'masked-text-dispel :text "search-button" :clipmask "search-button-mask"
			:x 200 :y 100 :mbackground "wheat" :foreground "blueviolet"))
(setf *mu* (make-window 'transparent-text-dispel :text "search-button" 
			:x 200 :y 100  :foreground "blueviolet"))

transparent-text-dispel
(change-reactivity *md* :single-middle-button "Move window" 'move-window)
(change-reactivity *me* :single-middle-button "Move window" 'move-window)
(change-reactivity *mt* :single-middle-button "Move window" 'move-window)
(change-reactivity *mu* :single-middle-button "Move window" 'move-window)
(change-reactivity *md* :single-right-button "Move window" 'drag-knob-with-mouse)

 

(setf (mouse-feedback *md*) :inverse)
(setf (mouse-feedback *mt*) :inverse)
(setf (mouse-feedback *md*) :none)


(defmethod before-display ((self masked-bitmap-dispel))
  (call-next-method))