Skip to content
Snippets Groups Projects
Commit c7c76974 authored by cer's avatar cer
Browse files

Initial revision

parent e9bcb219
No related branches found
No related tags found
No related merge requests found
;; -*- mode: common-lisp; package: xm-silica -*-
;;
;; -[]-
;;
;; copyright (c) 1985, 1986 Franz Inc, Alameda, CA All rights reserved.
;; copyright (c) 1986-1992 Franz Inc, Berkeley, CA All rights reserved.
;;
;; The software, data and information contained herein are proprietary
;; to, and comprise valuable trade secrets of, Franz, Inc. They are
;; given in confidence by Franz, Inc. pursuant to a written license
;; agreement, and may be stored and used only in accordance with the terms
;; of such license.
;;
;; Restricted Rights Legend
;; ------------------------
;; Use, duplication, and disclosure of the software, data and information
;; contained herein by any agency, department or entity of the U.S.
;; Government are subject to restrictions of Restricted Rights for
;; Commercial Software developed at private expense as specified in FAR
;; 52.227-19 or DOD FAR Supplement 252.227-7013 (c) (1) (ii), as
;; applicable.
;;
;; $fiHeader$
(in-package :xm-silica)
(defmethod spread-callback-data (widget call-data (type (eql :single-selection)))
(declare (ignore widget))
(xm-list-callback-struct-item-position call-data))
(defmethod spread-callback-data (widget call-data (type (eql :multiple-selection)))
(declare (ignore widget))
(let ((si (xm-list-callback-struct-selected-item-positions call-data))
(r nil))
(dotimes (i (xm-list-callback-struct-selected-item-count call-data) (nreverse r))
(push (xm-selected-position-array si i) r))))
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