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
81d6000e
Commit
81d6000e
authored
Mar 19, 2004
by
Iban Hatchondo
Browse files
fix inconsitancy of window sizes in update-<frame-parts>.
parent
1181fb7c
Changes
1
Hide whitespace changes
Inline
Side-by-side
wm.lisp
View file @
81d6000e
;;; -*- Mode: Lisp; Package: ECLIPSE-INTERNALS -*-
;;; $Id: wm.lisp,v 1.4
3
2004/03/1
0 15:58:17
ihatchondo Exp $
;;; $Id: wm.lisp,v 1.4
4
2004/03/1
5 00:00:22
ihatchondo Exp $
;;;
;;; ECLIPSE. The Common Lisp Window Manager.
;;; Copyright (C) 2000, 2001, 2002 Iban HATCHONDO
...
...
@@ -334,7 +334,7 @@
(
widget-window
,
edge
))
(
with-slots
(
,@
frame-style-slots-size
)
frame-style
(
declare
(
type
xlib:card16
,@
frame-style-slots-size
))
(
-
,
size
,@
frame-style-slots-size
))))))
(
max
1
(
-
,
size
,@
frame-style-slots-size
))))))
)
(
with-slots
(
frame-style
window
)
master
(
multiple-value-bind
(
width
height
)
(
drawable-sizes
window
)
(
declare
(
type
xlib:card16
width
height
))
...
...
@@ -347,12 +347,12 @@
(
defun
update-title-bar-sizes
(
title-bar
)
(
declare
(
optimize
(
speed
3
)
(
safety
0
)))
(
when
title-bar
(
with-slots
(
parent
vmargin
hmargin
window
)
title-bar
(
declare
(
type
xlib:card16
hmargin
vmargin
))
(
with-slots
(
parent
window
(
vm
vmargin
)
(
hm
hmargin
)
)
title-bar
(
declare
(
type
xlib:card16
vm
hm
))
(
multiple-value-bind
(
width
height
)
(
drawable-sizes
parent
)
(
declare
(
type
xlib:card16
width
height
))
(
setf
(
drawable-sizes
window
)
(
values
(
-
width
hm
argin
)
(
-
height
vm
argin
)))))))
(
values
(
max
1
(
-
width
hm
))
(
max
1
(
-
height
vm
)
)))))))
(
defun
initial-coordinates
(
app-window
frame-style
)
"Returns as multiple values the decoration initial coordinates."
...
...
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