Skip to content
Snippets Groups Projects
Commit 6686e140 authored by pmai's avatar pmai
Browse files

Fix symbol-atom, and handling of WM protocol callbacks, as submitted by

Aleksandr Skobelev.
parent 0862639b
No related branches found
No related tags found
No related merge requests found
......@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/motif/lisp/callbacks.lisp,v 1.4 1999/02/05 21:10:24 pw Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/motif/lisp/callbacks.lisp,v 1.5 2003/04/11 12:09:10 pmai Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -123,7 +123,9 @@
(declare (type widget widget)
(type keyword property protocol)
(type (or symbol function) fn))
(let* ((table (motif-connection-protocol-table *motif-connection*))
(let* ((property (xti:symbol-atom property))
(protocol (xti:symbol-atom protocol))
(table (motif-connection-protocol-table *motif-connection*))
(key (list (widget-id widget) property protocol))
(data (cons fn args)))
......@@ -138,7 +140,9 @@
(declare (type widget widget)
(type keyword property protocol)
(type (or symbol function) fn))
(let* ((table (motif-connection-protocol-table *motif-connection*))
(let* ((property (xti:symbol-atom property))
(protocol (xti:symbol-atom protocol))
(table (motif-connection-protocol-table *motif-connection*))
(key (list (widget-id widget) property protocol))
(data (cons fn args))
(new-list (delete data (gethash key table) :test #'equal)))
......
......@@ -7,7 +7,7 @@
;;; contact Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/motif/lisp/internals.lisp,v 1.7 1998/12/20 04:22:54 dtc Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/motif/lisp/internals.lisp,v 1.8 2003/04/11 12:09:10 pmai Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -213,7 +213,7 @@
;;; Converts a symbol into an atom.
(defun symbol-atom (symbol)
(substitute #\_ #\- (symbol-name symbol)))
(intern (substitute #\_ #\- (symbol-name symbol)) :KEYWORD))
(defun widget-add-child (parent child)
(declare (type widget parent child))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment