Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
eclipse
eclipse
Commits
8da06e64
Commit
8da06e64
authored
Oct 01, 2003
by
hatchond
Browse files
fix incorrect closures in make-running-menu.
parent
e71096ac
Changes
1
Hide whitespace changes
Inline
Side-by-side
wm.lisp
View file @
8da06e64
;;; -*- Mode: Lisp; Package: ECLIPSE-INTERNALS -*-
;;; $Id: wm.lisp,v 1.1
8
2003/09/
16 14:24:41
hatchond Exp $
;;; $Id: wm.lisp,v 1.1
9
2003/09/
30 12:18:36
hatchond Exp $
;;;
;;; ECLIPSE. The Common Lisp Window Manager.
;;; Copyright (C) 2000, 2001, 2002 Iban HATCHONDO
...
...
@@ -584,16 +584,18 @@ For more information on the input-model sementic see ICCCM 4.1.7"))
(
defun
make-running-menu
(
root
)
"Realize the root pop-up menu that shows all applications ordered by desktop."
(
flet
((
make-desktop-entries
(
index
)
(
loop
for
w
in
(
get-screen-content
index
:iconify-p
t
)
for
widget
=
(
lookup-widget
w
)
for
state
=
(
=
1
(
first
(
wm-state
w
)))
collect
(
cons
(
format
nil
"~:[[ ~A ]~;~A~]"
state
(
wm-name
w
))
(
lambda
()
(
case
(
first
(
wm-state
w
))
(
1
(
change-vscreen
root
:n
index
))
(
3
(
uniconify
(
slot-value
widget
'icon
))))
(
put-on-top
widget
))))))
(
labels
((
raise
(
window
index
)
(
lambda
()
(
case
(
first
(
wm-state
window
))
(
1
(
change-vscreen
root
:n
index
))
(
3
(
uniconify
(
slot-value
(
lookup-widget
window
)
'icon
))))
(
put-on-top
(
lookup-widget
window
))))
(
make-desktop-entries
(
index
)
(
loop
for
w
in
(
get-screen-content
index
:iconify-p
t
)
for
state
=
(
=
1
(
first
(
wm-state
w
)))
collect
(
cons
(
format
nil
"~:[[ ~A ]~;~A~]"
state
(
wm-name
w
))
(
raise
w
index
)))))
(
make-desktop-menu
root
#'
make-desktop-entries
:realize
t
)))
(
defun
make-menu-button-menu
(
master
)
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment