CLIM mail archive
Bug-report: Palette-Full

To: bugs@franz.com
Subject: Bug-report: Palette-Full
From: Daniel Cerys <cerys@BBN.COM>
Date: Tue, 15 Feb 94 13:26:35 EST
Cc: clim@BBN.COM
Comments: Hyperbole mail buttons accepted, v3.09.
Organization: Bolt Beranek and Newman Inc.
Sender: cerys@BBN.COM
[Allegro 4.2 - CLIM 2.0]

[Franz] CLIM has a very ungraceful method of informing the user that there
are no more colors in the colormap to be allocated (signalling this error).
In cases where an exact color match can't be found and there aren't any
colors to be allocated, CLIM should instead (by default) find the closest
match among the shared color cells of the X display and use that instead.

Some developers may wish an error to be signalled in this case, but I
expect that the majority would prefer the closest-match alternative to be
the default behavior.

Alternatively (and this should NOT be the default), a developer may wish to
allocate a completely separate X colormap for the CLIM application.  Again,
this shouldn't be the default.

------------------------------

#<Unprintable Object @ #x2946262>

Restart actions (select using :continue):
 0: Retry displaying pane #<APPLICATION-PANE @ #x276f072>
 1: Skip redisplaying pane #<APPLICATION-PANE @ #x276f072>
 2: Abort to SCIGRAPH Top Level
 3: Standard Graphs: MIDAS; Filter: None. top level
 4: Exit Standard Graphs: MIDAS; Filter: None.

------------------------------

Evaluation stack:

   (EXCL::INTERNAL-INVOKE-DEBUGGER "Error" #<PALETTE-FULL @ #x2946262> T NIL NIL)
   (SYS::..RUNTIME-OPERATION . :UNKNOWN-ARGS)
   (APPLY #<Function INTERNAL-INVOKE-DEBUGGER @ #xba9992>
          ("Error" #<PALETTE-FULL @ #x2946262> T))
   ((:INTERNAL DWIM::ADVISE-DEBUGGER 0) "Error" #<PALETTE-FULL @ #x2946262> T)
   [... EXCL::INTERNAL-INVOKE-DEBUGGER]
   (ERROR PALETTE-FULL)
 ->((METHOD XM-SILICA::DECODE-COLOR-IN-PALETTE (COLOR XM-SILICA::XT-PALETTE))
      #<CLIM-UTILS:RGB-COLOR R=0.255 G=0.412 B=0.882 @ #x29336ca>
      #<XM-SILICA::XT-PALETTE @ #x1ecd85a>)
   [... XM-SILICA::DECODE-COLOR-IN-PALETTE]
   ((METHOD XM-SILICA::DECODE-INK-1 (COLOR XM-SILICA::XT-MEDIUM))
      #<CLIM-UTILS:RGB-COLOR R=0.255 G=0.412 B=0.882 @ #x29336ca>
      #<XM-SILICA::XT-MEDIUM @ #x276f0a2>)
   [... XM-SILICA::DECODE-INK-1]
   ((METHOD XM-SILICA::DECODE-INK (DESIGN XM-SILICA::XT-MEDIUM))
      #<CLIM-UTILS:RGB-COLOR R=0.255 G=0.412 B=0.882 @ #x29336ca>
      #<XM-SILICA::XT-MEDIUM @ #x276f0a2>)
   [... XM-SILICA::DECODE-INK]
   ((METHOD MEDIUM-DRAW-RECTANGLE* (XM-SILICA::XT-MEDIUM T T T T T))
      #<XM-SILICA::XT-MEDIUM @ #x276f0a2> 142 199 145 198 T)
   ((METHOD MEDIUM-DRAW-RECTANGLE* :AROUND (BASIC-MEDIUM T T T T T))
      #<XM-SILICA::XT-MEDIUM @ #x276f0a2> 142 199 145 198 T)
   (:EFFECTIVE-METHOD #<XM-SILICA::XT-MEDIUM @ #x276f0a2> 142 199 145 198 T)
   [... MEDIUM-DRAW-RECTANGLE*]
   ((METHOD MEDIUM-DRAW-RECTANGLE* (PERMANENT-MEDIUM-SHEET-OUTPUT-MIXIN T T T T T))
      #<APPLICATION-PANE @ #x276f072> 142 199 145 198 T)
   ((METHOD MEDIUM-DRAW-RECTANGLE* :AROUND
     (CLIM-INTERNALS::OUTPUT-RECORDING-MIXIN T T T T T))
      #<APPLICATION-PANE @ #x276f072> 142 199 145 198 T)
   (:EFFECTIVE-METHOD #<APPLICATION-PANE @ #x276f072> 142 199 145 198 T)
   [... MEDIUM-DRAW-RECTANGLE*]
   ((FLET DRAW-RECTANGLE CLIM-UTILS::WITH-DRAWING-OPTIONS-BODY))
   ((METHOD INVOKE-WITH-DRAWING-OPTIONS (BASIC-MEDIUM T)) #<XM-SILICA::XT-MEDIUM @ #x276f0a2>
                                                          #<Closure (FLET
                                                                     DRAW-RECTANGLE
                                                                     CLIM-UTILS::WITH-DRAWING-OPTIONS-BODY)
                                                            @
                                                            #x294630a>
                                                          :INK
                                                          #<CLIM-UTILS:RGB-COLOR
                                                            R=0.255 G=0.412 B=0.882
                                                            @
                                                            #x29336ca>
                                                          :LINE-THICKNESS NIL)
   (SYS::..RUNTIME-OPERATION . :UNKNOWN-ARGS)
   (APPLY #<STANDARD-GENERIC-FUNCTION INVOKE-WITH-DRAWING-OPTIONS>
          #<XM-SILICA::XT-MEDIUM @ #x276f0a2>
          #<Closure (FLET DRAW-RECTANGLE CLIM-UTILS::WITH-DRAWING-OPTIONS-BODY) @ #x294630a>
          (:LINE-THICKNESS NIL :INK
           #<CLIM-UTILS:RGB-COLOR R=0.255 G=0.412 B=0.882 @ #x29336ca>))
   ((METHOD INVOKE-WITH-DRAWING-OPTIONS (CLIM-STREAM-SHEET T))
      #<APPLICATION-PANE @ #x276f072>
      #<Closure (FLET DRAW-RECTANGLE CLIM-UTILS::WITH-DRAWING-OPTIONS-BODY) @ #x294630a>
      :LINE-THICKNESS NIL :INK #<CLIM-UTILS:RGB-COLOR R=0.255 G=0.412 B=0.882 @ #x29336ca>)
   [... INVOKE-WITH-DRAWING-OPTIONS]
   (DRAW-RECTANGLE 142 144 197 199 :STREAM #<APPLICATION-PANE @ #x276f072> :ALU
                   #<CLIM-UTILS:RGB-COLOR R=0.255 G=0.412 B=0.882 @ #x29336ca> :FILLED T)
   (SYS::..RUNTIME-OPERATION . :UNKNOWN-ARGS)

  [Rest of Stack deleted]

   (APPLY #<Closure (:INTERNAL PROCESS-RUN-FUNCTION 0) @ #x2942862> NIL)
   (TPL::START-TOP-LEVEL :STACK-GROUP-FUNCTION
                         #<Closure (:INTERNAL PROCESS-RUN-FUNCTION 0) @ #x2942862>
                         :STACK-GROUP-ARGS NIL)
   (SYS::RESUME-STACK-GROUP #<MP:STACK-GROUP Frame Top Level @ #x2939e0a>)
   (SYS::..RUNTIME-OPERATION)

------------------------------

LISP-IMPLEMENTATION-TYPE:       Allegro CL
LISP-IMPLEMENTATION-VERSION:    4.2 [SPARC; R1] (2/14/94 0:53)
MACHINE-TYPE:                   SPARC
MACHINE-VERSION:                sun4m
SOFTWARE-TYPE:                  SunOS
SOFTWARE-VERSION:               SunOS bitburg.b 4.1.3 4 sun4m
SHORT-SITE-NAME:                bitburg.bbn.com
PRESTOP:                        T
CL-VERSION-TYPE: :FINAL
CL-FREEZE-NUMBER: 23
CL-GENERATION-NUMBER: 0
CL-PLATFORM-RELEASE-NUMBER: 1
*FEATURES*: :AMP-BASICS, :DWIM, :CRONUS, :CLIM-EXTENSIONS, :BBN-LISP,
            :RCS, :DEFSYSTEM, :AMP, :DART, :CLIM-MOTIF, :ANSI-90,
            :SILICA, :CLIM-2.0, :CLIM-2, :CLIM, :COMPOSER-V2.0,
            :COMPOSER, :CW-MOTIF, :CW-X-V2, :CW-X, :CLX-MIT-R5,
            :CLX-MIT-R4, :XLIB, :CLX, :MULTIPROCESSING, :DYNAFASL,
            :BIG-ENDIAN, :GSGC, :CLOS, :COMPILER, :UNIX, :SUN4, :SPARC,
            :SUN, :SUNOS4, :FLAVORS, :PROFILER, :IEEE,
            :IEEE-FLOATING-POINT, :CONFORMING-IEEE, :COMMON-LISP,
            :DRAFT-ANSI-CL-2, :X3J13, :ALLEGRO, :EXCL, :FRANZ-INC,
            :ALLEGRO-VERSION>=, :ALLEGRO-V4.2.
*MODULES*: "CLIMPS", "CRONUS-DBMS", "CRONUS", "CLIMG", "CLIM",
           "CLIMXM", "SUNDEBUG", "COMPOSER", "CLM", "GRAPHER",
           "PRES-TYPES", "EXTENDED-IO", "PMACROS", "XCW-MOTIF",
           "XCLAWS", "XCW", "CLX", "DISASSHYP", "DISASM", "INSPECT",
           "PROF", "ADVISE", "TRACE", "WALKER", "XREF", "SCM", "LEP",
           "EMACS", "IPC", "SIGIO", "PROCESS", "MDPROC", "DEFCTYPE",
           "FFLD", "FOREIGN", "FOREIGN-FUNCTIONS", "DEFSYSTEM",
           "DEFSYS", "COMPILER".
*BUILD-TIME-OS*: "SunOS bitburg.b 4.1.3 4 sun4m"
*DUMPLISP-GENERATION-TICK*: 2
The scheduler has been started in this image.
Current optimization qualities: SPEED 2 SAFETY 1 DEBUG 3 SPACE 1
**** Package violations:
****  FUNCTION:     EXCL:LOAD-SYSTEM
****  FUNCTION:     EXCL:COMPILE-SYSTEM
****  FUNCTION:     EXCL:LOAD-SYSTEM
****  FUNCTION:     EXCL:COMPILE-SYSTEM
****  FUNCTION:     EXCL:LOAD-SYSTEM
****  FUNCTION:     EXCL:COMPILE-SYSTEM
****  FUNCTION:     IGNORE
****  FUNCTION:     CLIM-LISP:INTERACTIVE-STREAM-P
****  TYPE:         BOOLEAN
****  FUNCTION:     (EXCL::DEFTYPE-EXPANDER BOOLEAN)
****  TYPE:         COUNT
****  FUNCTION:     (EXCL::DEFTYPE-EXPANDER COUNT)
****  FUNCTION:     CLASS
****  FUNCTION:     (SETF CLASS)
****  FUNCTION:     SPEED
****  FUNCTION:     (SETF SPEED)
****  FUNCTION:     CHAR-VALUE
****  FUNCTION:     XM-SILICA::CORRECT-CASE
****  FUNCTION:     EXCL::INTERNAL-INVOKE-DEBUGGER
****  FUNCTION:     CLIM-INTERNALS::INVOKE-ACCEPTING-VALUES
****  FUNCTION:     VARIABLE

Current CLIM-2.0 patches:
 (3301 . "delete-output-record made to respect :errorp nil")
 (3300 . "fixes bug with :inherit-menu t in define-command-table")
Current LISP patches:
 ("0188"
  . "Have MACHINE-VERSION and SOFTWARE-VERSION return meaningful values")
 ("0186" . "Improve performance of (setf named-slot) within with-slots")
CLIM 2.0:   $fiHeader: excl-verification.lisp,v 1.16 93/04/28 17:19:31 layer Exp $
Composer:   $aclHeader: first.cl,v 1.11 91/09/04 14:30:24 cer Exp $
X Common Windows: X-CW 2.1.7 (5/29/92 12:00)
disasshyp:  $Header: disasshyp.cl,v 1.28 1993/11/24 03:43:36 duane Exp $
inspect:    $Header: inspect.cl,v 1.64 1993/11/24 03:38:26 duane Exp $
prof:       $Header: prof.cl,v 2.58 1993/11/24 03:39:41 duane Exp $
trace:      $Header: trace.cl,v 1.54 1993/11/24 03:40:57 duane Exp $
emacs:      $Header: emacs.cl,v 1.14 1993/11/24 03:37:34 duane Exp $
ipc:        $Header: ipc.cl,v 1.61 1993/12/11 00:08:25 georgej Exp $
sigio:      $Header: sigio.cl,v 1.19 1993/11/24 03:40:18 duane Exp $
process:    $Header: process.cl,v 1.94 1993/12/01 22:59:58 smh Exp $
mdproc:     $Header: mdproc.cl,v 1.30 1993/11/24 03:39:06 duane Exp $
defctype:   $Header: defctype.cl,v 1.28 1993/11/24 03:37:19 duane Exp $
ffld:       $Header: ffld.cl,v 1.8 1993/11/24 03:37:52 duane Exp $
foreign:    $Header: foreign.cl,v 1.94 1993/12/11 00:08:15 georgej Exp $

------------------------------

Emacs-Lisp interface version: 2.0.11

load-path: ("/usr/cerys/emacs/" "/usr/local/pub/elisp/packages/gnus-3.14/" "/usr/local/pub/elisp/modes/gopher/" "/usr/local/pub/elisp/packages/sc-2.2/" "/usr/local/pub/elisp/packages/bbdb-1.47/" "/usr/local/pub/elisp/modes/tar-mode/" "/usr/local/pub/elisp/functions/" "/usr/local/pub/elisp/epoch/tek-highlight-2.1/" "/usr/local/pub/elisp/modes/info/" "/usr/local/pub/elisp/modes/dired/" "/usr/local/pub/elisp/modes/c++/" "/usr/local/pub/elisp/packages/ange-ftp/" "/usr/local/pub/elisp/interfaces/ispell-3.09/" "/usr/local/pub/elisp/interfaces/elib/" "/usr/local/pub/elisp/interfaces/pcl-cvs/" "/usr/local/pub/elisp/packages/vm/" "/usr/local/pub/elisp/packages/transparent/" "/usr/local/pub/elisp/packages/timer/" "/usr/local/pub/elisp/interfaces/ilisp-5.3/" "/usr/local/pub/elisp/interfaces/fi" "/usr/local/pub/elisp/packages/hyperbole-3.09-emacs18/" "/usr/local/pub/elisp/misc/" "/usr/local/epoch/contrib/" "/usr/local/epoch/lib/epoch-lisp/" "/usr/local/epoch/lib/lisp/" "/planutl/emacs/" "/usr/local/emacs/lisp/" "/usr/lo

cal/epoch/lib/epoch-lisp" "/usr/local/epoch/lib/lisp")

Contents of /usr/local/pub/elisp/interfaces/fi/ directory:
lrwxrwxrwx  1 cerys           9 Nov  1 17:42 /usr/local/pub/elisp/interfaces/fi/ -> fi-2.0.11
Prev: X window frame
Next: Re: problems with 1.1 output records under incremental redisplay
Index: CLIM Mailing list (1-Jun-94 to 30-Jun-95)
Thread: CLIM Mailing list Index (1-Jun-94 to 30-Jun-95)
Main Index | Thread Index