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
b90ecdc1
Commit
b90ecdc1
authored
Mar 01, 2004
by
Iban Hatchondo
Browse files
- system def and packages updated.
- fix theme defualt value for title bar position. - minor hack for frame edges.
parent
65af539a
Changes
16
Expand all
Hide whitespace changes
Inline
Side-by-side
lib/clx-ext/keysyms.lisp
View file @
b90ecdc1
;;; -*- Mode: Lisp; Package: Keyboard -*-
;;; $Id: keysyms.lisp,v 1.
3
200
3
/0
9/16 21:32:53
hatchond Exp $
;;; $Id: keysyms.lisp,v 1.
4
200
4
/0
1/07 11:05:49 i
hatchond
o
Exp $
;;;
;;; This is a CLX extension for managing keyboard.
;;;
...
...
@@ -27,14 +27,14 @@
(
:use
common-lisp
)
(
:size
50
)
(
:export
define-keysym
keysym->keyname
keyname->keysym
keyname->keycodes
keycode->keyname
modifier->modifier-mask
modifiers
modifier-map-changed-p
))
#:
define-keysym
#:
keysym->keyname
#:
keyname->keysym
#:
keyname->keycodes
#:
keycode->keyname
#:
modifier->modifier-mask
#:
modifiers
#:
modifier-map-changed-p
))
(
in-package
:keyboard
)
...
...
lib/clx-ext/package.lisp
View file @
b90ecdc1
;;; -*- Mode: Lisp; Package: User -*-
;;; $Id: package.lisp,v 1.
4
2004/01/1
4
1
4:06:07
ihatchondo Exp $
;;; $Id: package.lisp,v 1.
5
2004/01/1
6
1
5:46:25
ihatchondo Exp $
;;;
;;; This is the CLX extensions package definition.
;;;
...
...
@@ -27,162 +27,162 @@
(
:size
200
)
(
:export
;; from clx-extensions.lisp
window-geometry
window-position
drawable-sizes
with-event-mask
with-pointer-grabbed
with-window-gravity
get-environment-variable
open-clx-display
grab-button
draw-glyphs
translate
text-width
draw-centered-text
send-configuration-notify
#:
window-geometry
#:
window-position
#:
drawable-sizes
#:
with-event-mask
#:
with-pointer-grabbed
#:
with-window-gravity
#:
get-environment-variable
#:
open-clx-display
#:
grab-button
#:
draw-glyphs
#:
translate
#:
text-width
#:
draw-centered-text
#:
send-configuration-notify
;; from cursor.lisp
get-x-cursor
#:
get-x-cursor
;; from event.lisp
;; events class name
event
keyboard-pointer-event
pointer-event
button-press
button-release
motion-notify
keyboard-event
key-press
key-release
in-out-window-event
leave-notify
enter-notify
input-focus-event
focus-in
focus-out
keymap-notify
mapping-notify
exposure
no-exposure
graphics-exposure
circulate-notify
configure-notify
create-notify
map-notify
reparent-notify
unmap-notify
visibility-notify
destroy-notify
gravity-notify
colormap-notify
configure-request
map-request
resize-request
circulate-request
client-message
property-notify
selection-clear
selection-notify
selection-request
#:
event
#:
keyboard-pointer-event
#:
pointer-event
#:
button-press
#:
button-release
#:
motion-notify
#:
keyboard-event
#:
key-press
#:
key-release
#:
in-out-window-event
#:
leave-notify
#:
enter-notify
#:
input-focus-event
#:
focus-in
#:
focus-out
#:
keymap-notify
#:
mapping-notify
#:
exposure
#:
no-exposure
#:
graphics-exposure
#:
circulate-notify
#:
configure-notify
#:
create-notify
#:
map-notify
#:
reparent-notify
#:
unmap-notify
#:
visibility-notify
#:
destroy-notify
#:
gravity-notify
#:
colormap-notify
#:
configure-request
#:
map-request
#:
resize-request
#:
circulate-request
#:
client-message
#:
property-notify
#:
selection-clear
#:
selection-notify
#:
selection-request
;; slots name
above-sibling
atom
border-width
code
colormap
configure-p
count
data
drawable
focus-p
format
hint-p
installed-p
keymap
kind
major
minor
mode
new-p
override-redirect-p
parent
place
property
request
requestor
root
window
child
x
y
width
height
root-x
root-y
same-screen-p
selection
send-event-p
stack-mode
start
state
target
time
type
value-mask
#:
above-sibling
#:
atom
#:
border-width
#:
code
#:
colormap
#:
configure-p
#:
count
#:
data
#:
drawable
#:
focus-p
#:
format
#:
hint-p
#:
installed-p
#:
keymap
#:
kind
#:
major
#:
minor
#:
mode
#:
new-p
#:
override-redirect-p
#:
parent
#:
place
#:
property
#:
request
#:
requestor
#:
root
#:
window
#:
child
#:
x
#:
y
#:
width
#:
height
#:
root-x
#:
root-y
#:
same-screen-p
#:
selection
#:
send-event-p
#:
stack-mode
#:
start
#:
state
#:
target
#:
time
#:
type
#:
value-mask
;; slots reader
event-root
event-event-window
event-window
event-child
event-x
event-y
event-width
event-height
event-root-x
event-root-y
event-above-sibling
event-atom
event-border-width
event-code
event-colormap
event-configure-p
event-count
event-data
event-drawable
event-focus-p
event-format
event-hint-p
event-installed-p
event-keymap
event-kind
event-mode
event-new-p
event-override-redirect-p
event-parent
event-place
event-property
event-request
event-requestor
event-same-screen-p
event-selection
event-send-event-p
event-stack-mode
event-start
event-state
event-target
event-time
event-type
event-value-mask
#:
event-root
#:
event-event-window
#:
event-window
#:
event-child
#:
event-x
#:
event-y
#:
event-width
#:
event-height
#:
event-root-x
#:
event-root-y
#:
event-above-sibling
#:
event-atom
#:
event-border-width
#:
event-code
#:
event-colormap
#:
event-configure-p
#:
event-count
#:
event-data
#:
event-drawable
#:
event-focus-p
#:
event-format
#:
event-hint-p
#:
event-installed-p
#:
event-keymap
#:
event-kind
#:
event-mode
#:
event-new-p
#:
event-override-redirect-p
#:
event-parent
#:
event-place
#:
event-property
#:
event-request
#:
event-requestor
#:
event-same-screen-p
#:
event-selection
#:
event-send-event-p
#:
event-stack-mode
#:
event-start
#:
event-state
#:
event-target
#:
event-time
#:
event-type
#:
event-value-mask
; functions
get-next-event
;
;
functions
#:
get-next-event
; methods
make-event
;
;
methods
#:
make-event
;;
)
...
...
lib/gnome-manager.lisp
View file @
b90ecdc1
;;; -*- Mode: Lisp; Package: GNOME -*-
;;; $Id: gnome-manager.lisp,v 1.
1
200
2
/11/
07 14:23:31
hatchond Exp $
;;; $Id: gnome-manager.lisp,v 1.
2
200
3
/11/
13 00:03:50 i
hatchond
o
Exp $
;;;
;;; This is the CLX support for the managing with gnome.
;;;
...
...
@@ -29,25 +29,25 @@
(
:use
common-lisp
)
(
:use
manager-commons
)
(
:size
50
)
(
:import-from
:xlib
get-property
change-property
)
(
:import-from
:xlib
#:
get-property
#:
change-property
)
(
:import-from
:manager-commons
card-32
card-16
card-8
int-16
get-geometry-hint
set-geometry-hint
encode-string-property
get-text-property
set-workspace-names
set-atoms-property
get-atoms-property
get-window-property
define-window-list-property-accessor
)
#:
card-32
#:
card-16
#:
card-8
#:
int-16
#:
get-geometry-hint
#:
set-geometry-hint
#:
encode-string-property
#:
get-text-property
#:
set-workspace-names
#:
set-atoms-property
#:
get-atoms-property
#:
get-window-property
#:
define-window-list-property-accessor
)
(
:export
win-client-list
win-workspace-count
win-workspace-names
win-workspace
win-area
win-area-count
win-protocols
win-supporting-wm-check
win-layer
win-state
win-hints
win-desktop-button-proxy
win-app-state
win-expanded-size
intern-gnome-atom
)
#:
win-client-list
#:
win-workspace-count
#:
win-workspace-names
#:
win-workspace
#:
win-area
#:
win-area-count
#:
win-protocols
#:
win-supporting-wm-check
#:
win-layer
#:
win-state
#:
win-hints
#:
win-desktop-button-proxy
#:
win-app-state
#:
win-expanded-size
#:
intern-gnome-atom
)
(
:documentation
"This package implements :
The Gnome Window Manager Complience specification.
...
...
lib/ice/package.lisp
View file @
b90ecdc1
;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: COMMON-LISP; -*-
;;; $Id:$
;;; $Id:
package.lisp,v 1.1 2004/01/12 11:10:51 ihatchondo Exp
$
;;; ---------------------------------------------------------------------------
;;; Title: ICE Library
;;; Created: 2004 01 15 15:28
...
...
@@ -68,239 +68,239 @@
<ftp://ftp.xfree86.org/X.Org/pub/R6.6/xc/doc/hardcopy/ICE/ice.PS.gz>"
)
(
:export
;; request classes.
"REQUEST"
; protocol class
; minor opcode
"BYTE-ORDER"
; 1
"CONNECTION-SETUP"
; 2
"AUTHENTICATION-REQUIRED"
; 3
"AUTHENTICATION-REPLY"
; 4
"AUTHENTICATION-NEXT-PHASE"
; 5
"CONNECTION-REPLY"
; 6
"PROTOCOL-SETUP"
; 7
"PROTOCOL-REPLY"
; 8
"PING"
; 9
"PING-REPLY"
; 10
"WANT-TO-CLOSE"
; 11
"NO-CLOSE"
; 12
#:request
; protocol class
; minor opcode
#:byte-order
; 1
#:connection-setup
; 2
#:authentication-required
; 3
#:authentication-reply
; 4
#:authentication-next-phase
; 5
#:connection-reply
; 6
#:protocol-setup
; 7
#:protocol-reply
; 8
#:ping
; 9
#:ping-reply
; 10
#:want-to-close
; 11
#:no-close
; 12
;; error request classes.
"REQUEST-ERROR"
; protocol class
; class
"BAD-MINOR"
; #x8000
"BAD-STATE"
; #x8001
"BAD-LENGTH"
; #x8002
"BAD-VALUE"
; #x8003
"BAD-MAJOR"
; 0
"NO-AUTHENTICATION"
; 1
"NO-VERSION"
; 2
"SETUP-FAILED"
; 3
"AUTHENTICATION-REJECTED"
; 4
"AUTHENTICATION-FAILED"
; 5
"PROTOCOL-DUPLICATE"
; 6
"MAJOR-OPCODE-DUPLICATE"
; 7
"UNKNOWN-PROTOCOL"
#:request-error
; protocol class
; class
#:bad-minor
; #x8000
#:bad-state
; #x8001
#:bad-length
; #x8002
#:bad-value
; #x8003
#:bad-major
; 0
#:no-authentication
; 1
#:no-version
; 2
#:setup-failed
; 3
#:authentication-rejected
; 4
#:authentication-failed
; 5
#:protocol-duplicate
; 6
#:major-opcode-duplicate
; 7
#:unknown-protocol
;; ice lib classes
"ICE-AUTHORITY-ENTRY"
"ICE-CONNECTION"
#:ice-authority-entry
#:ice-connection
;; error condition
"ICE-ERROR"
"ICE-ERROR-AUTHENTICATION-FAILED"
"ICE-ERROR-AUTHENTICATION-REJECTED"
"ICE-ERROR-BAD-LENGTH"
"ICE-ERROR-BAD-MAJOR"
"ICE-ERROR-BAD-MINOR"
"ICE-ERROR-BAD-STATE"
"ICE-ERROR-BAD-VALUE"
"ICE-ERROR-MAJOR-OPCODE-DUPLICATE"
"ICE-ERROR-NO-AUTHENTICATION"
"ICE-ERROR-NO-VERSION"
"ICE-ERROR-PROTOCOL-DUPLICATE"
"ICE-ERROR-SETUP-FAILED"
"ICE-ERROR-UNKNOWN-PROTOCOL"
#:ice-error
#:ice-error-authentication-failed
#:ice-error-authentication-rejected
#:ice-error-bad-length
#:ice-error-bad-major
#:ice-error-bad-minor
#:ice-error-bad-state
#:ice-error-bad-value
#:ice-error-major-opcode-duplicate
#:ice-error-no-authentication
#:ice-error-no-version
#:ice-error-protocol-duplicate
#:ice-error-setup-failed
#:ice-error-unknown-protocol
;; generic methods
"DECODE-REQUEST"
"ICE-FLUSH"
"LAST-RECEIVED-MESSAGE"
"LAST-SENDED-MESSAGE"
"MAKE-ICE-REQUEST"
"POST-REQUEST"
"READ-REQUEST"
"REQUEST-LENGTH"
"SIGNAL-REQUEST-ERROR"
#:decode-request
#:ice-flush
#:last-received-message
#:last-sended-message
#:make-ice-request
#:post-request
#:read-request
#:request-length
#:signal-request-error
;; slots
"MINOR-OPCODE"
"MAJOR-OPCODE"
#:minor-opcode
#:major-opcode
;; slot accessors.
"AUTHENTICATION-FAILED-VALUES"
"AUTHENTICATION-NEXT-PHASE-DATA"
"AUTHENTICATION-NEXT-PHASE-LENGTH-OF-AUTHENTICATION-DATA"
"AUTHENTICATION-REJECTED-VALUES"
"AUTHENTICATION-REPLY-DATA"
"AUTHENTICATION-REPLY-LENGTH-OF-AUTHENTICATION-DATA"
"AUTHENTICATION-REQUIRED-AUTHENTICATION-PROTOCOL-INDEX"
"AUTHENTICATION-REQUIRED-DATA"
"AUTHENTICATION-REQUIRED-LENGTH-OF-AUTHENTICATION-DATA"
"BAD-MAJOR-VALUES"
"BAD-VALUE-LENGTH-OF-OFFENDING-VALUE"
"BAD-VALUE-OFFENDING-VALUE"
"BAD-VALUE-OFFSET-OF-OFFENDING-VALUE"
"BYTE-ORDER-BYTE-ORDER"
"CONNECTION-INPUT-BUFFER"
"CONNECTION-INPUT-BYTE-ORDER"
"CONNECTION-OUTPUT-BUFFER"
"CONNECTION-OUTPUT-BYTE-ORDER"
"CONNECTION-REPLY-RELEASE-NAME"
"CONNECTION-REPLY-VENDOR-NAME"
"CONNECTION-REPLY-VERSION-INDEX"
"CONNECTION-SETUP-AUTHENTICATION-PROTOCOL-NAMES"
"CONNECTION-SETUP-MUST-AUTHENTICATE-P"
"CONNECTION-SETUP-NUMBER-OF-AUTHENTICATION-PROTOCOL-NAMES-OFFERED"
"CONNECTION-SETUP-NUMBER-OF-VERSIONS-OFFERED"
"CONNECTION-SETUP-RELEASE-NAME"
"CONNECTION-SETUP-VENDOR-NAME"
"CONNECTION-SETUP-VERSION-LIST"
"CONNECTION-STREAM"
"ICE-CONNECTION-STRING"
"ICE-CONNECTION-WAIT"
"ICE-ERROR-HANDLER"
"ICE-PROTOCOL-REVISION"
"ICE-PROTOCOL-VERSION"
"ICE-RELEASE"
"ICE-VENDOR"
"MAJOR-OPCODE-DUPLICATE-VALUES"
"PROTOCOL-DUPLICATE-VALUES"
"PROTOCOL-REPLY-RELEASE-NAME"
"PROTOCOL-REPLY-VENDOR-NAME"
"PROTOCOL-REPLY-VERSION-INDEX"
"PROTOCOL-SETUP-AUTHENTICATION-PROTOCOL-NAMES"
"PROTOCOL-SETUP-MUST-AUTHENTICATE-P"
"PROTOCOL-SETUP-NUMBER-OF-AUTHENTICATION-PROTOCOL-NAMES-OFFERED"
"PROTOCOL-SETUP-NUMBER-OF-VERSIONS-OFFERED"
"PROTOCOL-SETUP-PROTOCOL-MAJOR-OPCODE"
"PROTOCOL-SETUP-PROTOCOL-NAME"
"PROTOCOL-SETUP-RELEASE-NAME"
"PROTOCOL-SETUP-VENDOR-NAME"
"PROTOCOL-SETUP-VERSION-LIST"
"REQUEST-ERROR-CLASS"
"REQUEST-ERROR-OFFENDING-MINOR-OPCODE"
"REQUEST-ERROR-SEQUENCE-NUMBER-OF-ERRONEOUS-MESSAGE"
"REQUEST-ERROR-SEVERITY"
"REQUEST-MAJOR-OPCODE"
"REQUEST-MINOR-OPCODE"
"SETUP-FAILED-VALUES"
"UNKNOWN-PROTOCOL-VALUES"
#:authentication-failed-values
#:authentication-next-phase-data
#:authentication-next-phase-length-of-authentication-data
#:authentication-rejected-values
#:authentication-reply-data
#:authentication-reply-length-of-authentication-data
#:authentication-required-authentication-protocol-index
#:authentication-required-data
#:authentication-required-length-of-authentication-data
#:bad-major-values
#:bad-value-length-of-offending-value
#:bad-value-offending-value
#:bad-value-offset-of-offending-value
#:byte-order-byte-order
#:connection-input-buffer
#:connection-input-byte-order
#:connection-output-buffer
#:connection-output-byte-order
#:connection-reply-release-name
#:connection-reply-vendor-name
#:connection-reply-version-index
#:connection-setup-authentication-protocol-names
#:connection-setup-must-authenticate-p
#:connection-setup-number-of-authentication-protocol-names-offered
#:connection-setup-number-of-versions-offered
#:connection-setup-release-name
#:connection-setup-vendor-name
#:connection-setup-version-list
#:connection-stream
#:ice-connection-string
#:ice-connection-wait
#:ice-error-handler
#:ice-protocol-revision
#:ice-protocol-version
#:ice-release
#:ice-vendor
#:major-opcode-duplicate-values
#:protocol-duplicate-values
#:protocol-reply-release-name
#:protocol-reply-vendor-name
#:protocol-reply-version-index
#:protocol-setup-authentication-protocol-names
#:protocol-setup-must-authenticate-p