Commit 2a3a1e5c authored by Iban Hatchondo's avatar Iban Hatchondo
Browse files

added close-widget overloading for icon and decoration.

parent 1be21f2b
;;; -*- Mode: Lisp; Package: ECLIPSE-INTERNALS -*-
;;; $Id: widgets.lisp,v 1.25 2004/01/12 10:57:58 ihatchondo Exp $
;;; $Id: widgets.lisp,v 1.26 2004/01/12 11:22:05 ihatchondo Exp $
;;;
;;; ECLIPSE. The Common Lisp Window Manager.
;;; Copyright (C) 2000, 2001, 2002 Iban HATCHONDO
......@@ -679,6 +679,9 @@
,p (if ,sibling :above :below)))
(setf (xlib:window-priority (widget-window ,icon) ,sibling) ,p))))
(defmethod close-widget ((widget icon))
(close-widget (icon-application icon)))
(defmethod remove-widget :after ((widget icon))
(with-slots (pixmap-to-free) widget
(when pixmap-to-free
......
;;; -*- Mode: Lisp; Package: ECLIPSE-INTERNALS -*-
;;; $Id: wm.lisp,v 1.28 2004/01/06 17:02:06 ihatchondo Exp $
;;; $Id: wm.lisp,v 1.29 2004/01/12 11:22:05 ihatchondo Exp $
;;;
;;; ECLIPSE. The Common Lisp Window Manager.
;;; Copyright (C) 2000, 2001, 2002 Iban HATCHONDO
......@@ -135,6 +135,9 @@
((application-iconic-p application)
(xlib:unmap-window app-win))))))))
(defmethod close-widget ((widget decoration))
(close-widget (get-child widget :application)))
(defmethod put-on-top ((widget decoration))
(put-on-top (get-child widget :application)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment