Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
eclipse
eclipse
Commits
a5047140
Commit
a5047140
authored
Feb 17, 2004
by
Iban Hatchondo
Browse files
Removed useless property-manager-window from the root object.
Instead standard-property-holder class is defined in widgets.lisp.
parent
56b23755
Changes
5
Hide whitespace changes
Inline
Side-by-side
eclipse.lisp
View file @
a5047140
;;; -*- Mode: Lisp; Package: ECLIPSE-INTERNALS -*-
;;; $Id: eclipse.lisp,v 1.1
6
2004/01/1
2
1
2:56:11
ihatchondo Exp $
;;; $Id: eclipse.lisp,v 1.1
7
2004/01/1
5
1
5:35:34
ihatchondo Exp $
;;;
;;; ECLIPSE. The Common Lisp Window Manager.
;;; Copyright (C) 2002 Iban HATCHONDO
...
...
@@ -123,6 +123,7 @@
:data
(
list
managing-since
(
xlib:find-atom
display
+xa-wm+
)
(
xlib:window-id
manager
)))
(
make-instance
'standard-property-holder
:window
manager
)
manager
))
(
defun
init-gnome-compliance
(
display
window
manager
)
...
...
@@ -160,11 +161,11 @@
;; Specific for X display
(
setf
(
xlib:display-error-handler
display
)
#'
default-handler
(
xlib:display-after-function
display
)
#'
xlib:display-force-output
)
(
setf
*root*
(
make-instance
'root
:window
root-window
:manager
manager
)
(
setf
*root*
(
make-instance
'root
:window
root-window
)
*root-window*
root-window
(
root-default-cursor
*root*
)
(
get-x-cursor
*display*
:xc_left_ptr
)
(
root-sm-conn
*root*
)
(
connect-to-session-manager
display-specification
sm-client-id
))
(
root-sm-conn
*root*
)
(
connect-to-session-manager
display-specification
sm-client-id
))
;; init all gnome properties on root.
(
init-gnome-compliance
display
root-window
manager
)
(
ppm:initialize
colormap
)
...
...
input.lisp
View file @
a5047140
;;; -*- Mode: Lisp; Package: ECLIPSE-INTERNALS -*-
;;; $Id: input.lisp,v 1.3
1
2004/0
1/20
2
1
:3
8:11
ihatchondo Exp $
;;; $Id: input.lisp,v 1.3
2
2004/0
2/12
2
3
:3
0:22
ihatchondo Exp $
;;;
;;; ECLIPSE. The Common Lisp Window Manager.
;;; Copyright (C) 2000, 2001, 2002 Iban HATCHONDO
...
...
@@ -46,14 +46,6 @@
(
register-all-mouse-strokes
)))
(
:pointer
nil
))))
(
defmethod
event-process
((
event
selection-clear
)
null-widget
)
;; handle the selection clear to stop window managing (see ICCCM 2.8).
(
declare
(
ignorable
null-widget
))
(
with-slots
(
event-window
selection
)
event
(
and
(
xlib:window-equal
event-window
(
root-manager
*root*
))
(
string=
selection
+xa-wm+
)
(
error
'exit-eclipse
))))
(
defmethod
event-process
((
ev
configure-request
)
(
widget
base-widget
))
(
declare
(
ignorable
widget
))
(
with-slots
(
window
value-mask
x
y
width
height
above-sibling
stack-mode
)
ev
...
...
@@ -82,6 +74,12 @@
;; Specialized ones.
(
defmethod
event-process
((
e
selection-clear
)
(
w
standard-property-holder
))
;; handle the selection clear to stop window managing (see ICCCM 2.8).
(
declare
(
ignorable
w
))
(
when
(
string=
(
event-selection
e
)
+xa-wm+
)
(
error
'exit-eclipse
)))
;;; Events for the root window
(
defmethod
event-process
((
event
map-request
)
(
root
root
))
...
...
package.lisp
View file @
a5047140
;;; -*- Mode: Lisp; Package: User -*-
;;; $Id: package.lisp,v 1.1
4
2004/0
1
/1
5 15:35:34
ihatchondo Exp $
;;; $Id: package.lisp,v 1.1
5
2004/0
2
/1
2 23:30:22
ihatchondo Exp $
;;;
;;; This file is part of Eclipse.
;;; Copyright (C) 2002 Iban HATCHONDO
...
...
@@ -280,7 +280,6 @@
"ROOT-DECORATION-THEME"
;generic function
"ROOT-DEFAULT-CURSOR"
;generic function
"ROOT-DESKTOP"
;generic function
"ROOT-MANAGER"
;generic function
"ROOT-MOVE-STATUS"
;generic function
"ROOT-RESIZE-STATUS"
;generic function
"SET-FOCUS"
;generic function
...
...
widgets.lisp
View file @
a5047140
;;; -*- Mode: Lisp; Package: ECLIPSE-INTERNALS -*-
;;; $Id: widgets.lisp,v 1.3
3
2004/0
1/23 15:38:16
ihatchondo Exp $
;;; $Id: widgets.lisp,v 1.3
4
2004/0
2/12 23:30:22
ihatchondo Exp $
;;;
;;; ECLIPSE. The Common Lisp Window Manager.
;;; Copyright (C) 2000, 2001, 2002 Iban HATCHONDO
...
...
@@ -74,11 +74,6 @@
(
:documentation
"Returns T if one of the state :win_state_fixed_position
:_net_wm_state_sticky is set for the widget."
))
(
defgeneric
root-manager
(
widget
)
(
:documentation
"Returns the root-window child that is the place holder for indicating that
a netwm manager is present."
))
(
defgeneric
repaint
(
widget
theme-name
focus
)
(
:documentation
"This method is dedicated to widget repaint such as every buttons, icons,
...
...
@@ -104,16 +99,12 @@
(
define-null-method
close-widget
widget
)
(
define-null-method
focus-widget
widget
timestamp
)
(
define-null-method
repaint
widget
theme-name
focus
)
(
define-null-method
root-manager
widget
)
(
define-null-method
shaded-p
widget
)
(
define-null-method
widget-position-fix-p
widget
))
(
defmethod
remove-widget
((
widget
base-widget
))
(
remhash
(
widget-window
widget
)
*widget-table*
))
(
defmethod
root-manager
((
widget
base-widget
))
(
root-manager
(
lookup-widget
(
xlib:drawable-root
(
widget-window
widget
)))))
(
defmethod
put-on-top
((
widget
base-widget
))
(
setf
(
xlib:window-priority
(
widget-window
widget
))
:above
))
...
...
@@ -130,6 +121,8 @@
(
declaim
(
inline
lookup-widget
))
(
defclass
standard-property-holder
(
base-widget
)
())
;;;; The ROOT
(
defclass
root
(
base-widget
)
...
...
@@ -138,7 +131,6 @@
(
default-cursor
:initform
nil
:accessor
root-default-cursor
)
(
current-active-widget
:initform
nil
)
(
decoration-theme
:initform
nil
:accessor
root-decoration-theme
)
(
properties-manager-window
:initarg
:manager
:reader
root-manager
)
(
menu1
:initform
nil
)
(
menu2
:initform
nil
)
(
menu3
:initform
nil
)
...
...
wm.lisp
View file @
a5047140
;;; -*- Mode: Lisp; Package: ECLIPSE-INTERNALS -*-
;;; $Id: wm.lisp,v 1.3
6
2004/02/1
3
1
8:23:16
ihatchondo Exp $
;;; $Id: wm.lisp,v 1.3
7
2004/02/1
6
1
1:01:24
ihatchondo Exp $
;;;
;;; ECLIPSE. The Common Lisp Window Manager.
;;; Copyright (C) 2000, 2001, 2002 Iban HATCHONDO
...
...
@@ -823,7 +823,8 @@
(
close-sm-connection
*root*
:exit-p
nil
))
(
xlib:display-finish-output
*display*
)
(
setf
(
xlib:window-event-mask
*root-window*
)
'
())
(
xlib:destroy-window
(
root-manager
*root*
))
(
let
((
win
(
netwm:net-supporting-wm-check
*root-window*
)))
(
xlib:destroy-window
win
))
(
xlib:display-finish-output
*display*
)
(
return
))))
(
exit-eclipse
(
c
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a 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