Bonjour,
Suite a vos differentes reponse j'ai trouve un script en perl qui est
sense gerer le "Iconify all windows" avec sawfish. Le probleme c'est que
n'ayant jamais scripte sawfish je ne sais pas comment l'integrer au
systeme.
Sur le site sur lequel j'ai pris le script (
http://www.sics.se/~lofgren/sawmill/ ) ils recommendent de copier le
code dans un fichier .sawmillrc qui n'existe apparement pas sur ma
machine.
Je vous joint le script en piece jointe...
Si quelqu'un a une idee...en tout cas j'imagine que c'est une fonction
que pas mal de monde aimerait avoir...
--
God is real... unless declared an integer.
(defvar *iconified-windows* nil)
(defun iconify-all ()
"Iconfify all windows."
(interactive)
(setq *iconified-windows* nil)
(let* ((wins (stacking-order)) (len (length wins)) (i 0)
(while (< i len)
(let ((w (nth i wins)))
(cond ((and (eq current-workspace (window-get w 'workspace))
(not (window-get w 'iconified)))
(setq *iconified-windows* (cons w *iconified-windows*))
(iconify-window w))))
(setq i (+ i 1)))))
(defun uniconify-windows (wins)
(cond ((not (null wins))
(uniconify-window (car wins))
(uniconify-windows (cdr wins)))))
(defun uniconify-all ()
"Deiconify windows iconified with iconify-all."
(interactive)
(uniconify-windows *iconified-windows*))
Vous souhaitez acquerir votre Pack ou des Services MandrakeSoft?
Rendez-vous sur "http://www.mandrakestore.com";
