Commit b90ecdc1 authored by Iban Hatchondo's avatar Iban Hatchondo
Browse files

- system def and packages updated.

- fix theme defualt value for title bar position.
- minor hack for frame edges.
parent 65af539a
;;; -*- Mode: Lisp; Package: Keyboard -*-
;;; $Id: keysyms.lisp,v 1.3 2003/09/16 21:32:53 hatchond Exp $
;;; $Id: keysyms.lisp,v 1.4 2004/01/07 11:05:49 ihatchondo 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)
......
;;; -*- Mode: Lisp; Package: User -*-
;;; $Id: package.lisp,v 1.4 2004/01/14 14:06:07 ihatchondo Exp $
;;; $Id: package.lisp,v 1.5 2004/01/16 15: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
;;
)
......
;;; -*- Mode: Lisp; Package: GNOME -*-
;;; $Id: gnome-manager.lisp,v 1.1 2002/11/07 14:23:31 hatchond Exp $
;;; $Id: gnome-manager.lisp,v 1.2 2003/11/13 00:03:50 ihatchondo 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.
......
;;; -*- 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