Cannot use clim-demo:start-demo twice
Steps to reproduce:
- Start clim demo
(ql:quickload '(clim-tos clim-tos/clx-backend clim-tos/examples))
(clim-demo:start-demo)
- Close demo (Alt-F4, or click [x] on the window bar.
There is no applicable method for the generic function
#<STANDARD-GENERIC-FUNCTION CLIM:MEDIUM-MERGED-TEXT-STYLE (3)>
when called with arguments
(NIL).
[Condition of type SIMPLE-ERROR]
Restarts:
0: [RETRY] Retry calling the generic function.
1: [ABORT] Return to Demo Driver command level
2: [NIL] Demo Driver top level
3: [NIL] Exit Demo Driver
4: [ABORT] abort thread (#<THREAD "Demo Driver" RUNNING {1003AB2383}>)
Backtrace:
0: ((:METHOD NO-APPLICABLE-METHOD (T)) #<STANDARD-GENERIC-FUNCTION CLIM:MEDIUM-MERGED-TEXT-STYLE (3)> NIL) [fast-method]
1: (SB-PCL::CALL-NO-APPLICABLE-METHOD #<STANDARD-GENERIC-FUNCTION CLIM:MEDIUM-MERGED-TEXT-STYLE (3)> (NIL))
2: ((:METHOD CLIM:MEDIUM-MERGED-TEXT-STYLE (CLIM:STANDARD-SHEET-OUTPUT-MIXIN)) #<CLIM:APPLICATION-PANE {10077DE563}>) [fast-method]
3: ((:METHOD CLIM-INTERNALS::DECODE-STREAM-FOR-WRITING (CLIM-INTERNALS::OUTPUT-PROTOCOL-MIXIN)) #<CLIM:APPLICATION-PANE {10077DE563}> NIL) [fast-method]
4: ((:METHOD CLIM-INTERNALS::DECODE-STREAM-FOR-WRITING (CLIM:STANDARD-ENCAPSULATING-STREAM)) #<CLIM:STANDARD-INPUT-EDITING-STREAM {100E3EB923}> NIL) [fast-method]
5: ((:METHOD CLIM-INTERNALS::DO-INPUT-BUFFER-SCREEN-REAL-ESTATE (CLIM-INTERNALS::INPUT-EDITING-STREAM-MIXIN T)) #<CLIM:STANDARD-INPUT-EDITING-STREAM {100E3EB923}> #<FUNCTION (FLET IGNORE :IN CLIM-INTERNA..
6: ((:METHOD CLIM-INTERNALS::INPUT-BUFFER-INPUT-POSITION->CURSOR-POSITION (CLIM-INTERNALS::INPUT-EDITING-STREAM-MIXIN)) #<CLIM:STANDARD-INPUT-EDITING-STREAM {100E3EB923}> 0) [fast-method]
7: ((:METHOD CLIM:STREAM-READ-GESTURE (CLIM-INTERNALS::INPUT-EDITING-STREAM-MIXIN)) #<CLIM:STANDARD-INPUT-EDITING-STREAM {100E3EB923}> :TIMEOUT NIL :PEEK-P NIL :INPUT-WAIT-TEST NIL :INPUT-WAIT-HANDLER #<..
8: (CLIM:READ-TOKEN #<CLIM:STANDARD-INPUT-EDITING-STREAM {100E3EB923}> :INPUT-WAIT-HANDLER NIL :POINTER-BUTTON-PRESS-HANDLER NIL :CLICK-ONLY T :TIMEOUT NIL)
9: ((:METHOD CLIM:ACCEPT-METHOD (T T T T T CLIM:TEXTUAL-VIEW)) #<unused argument> #<unused argument> #<unused argument> #<unused argument> #<CLIM:STANDARD-INPUT-EDITING-STREAM {100E3EB923}> #<unused argu..
10: ((FLET CLIM-INTERNALS::BODY-CONTINUATION :IN CLIM:ACCEPT-1))
11: (CLIM-INTERNALS::INVOKE-WITH-INPUT-CONTEXT (CLIM:COMMAND :COMMAND-TABLE CLIM-DEMO::DEMO-DRIVER) NIL #<CLOSURE (FLET CLIM-INTERNALS::BODY-CONTINUATION :IN CLIM:ACCEPT-1) {7FFFEBDAD58B}> #<CLOSURE (FLET..
12: ((FLET CLIM-INTERNALS::WITH-INPUT-EDITING-BODY :IN CLIM:ACCEPT-1) #<CLIM:STANDARD-INPUT-EDITING-STREAM {100E3EB923}>)
13: (CLIM-INTERNALS::INVOKE-WITH-INPUT-CONTEXT (CLIM-INTERNALS::INPUT-EDITOR :STREAM #<CLIM:STANDARD-INPUT-EDITING-STREAM {100E3EB923}>) NIL #<CLOSURE (FLET CLIM-INTERNALS::BODY-CONTINUATION :IN CLIM-INTE..
14: ((FLET CLIM-INTERNALS::WITH-OUTPUT-RECORDING-OPTIONS-BODY :IN CLIM-INTERNALS::INVOKE-WITH-INPUT-EDITING))
15: ((:METHOD CLIM:INVOKE-WITH-OUTPUT-RECORDING-OPTIONS (CLIM-INTERNALS::OUTPUT-RECORDING-MIXIN T T T)) #<CLIM:APPLICATION-PANE {10077DE563}> #<CLOSURE (FLET CLIM-INTERNALS::WITH-OUTPUT-RECORDING-OPTIONS-..
16: ((:METHOD CLIM:INVOKE-WITH-OUTPUT-RECORDING-OPTIONS (CLIM:STANDARD-ENCAPSULATING-STREAM T T T)) #<CLIM:STANDARD-INPUT-EDITING-STREAM {100E3EB923}> #<CLOSURE (FLET CLIM-INTERNALS::WITH-OUTPUT-RECORDING..
17: (CLIM-INTERNALS::INVOKE-WITH-INPUT-EDITING #<CLIM:STANDARD-INPUT-EDITING-STREAM {100E3EB923}> #<CLOSURE (FLET CLIM-INTERNALS::WITH-INPUT-EDITING-BODY :IN CLIM:ACCEPT-1) {7FFFEBDADD7B}> CLIM:STANDARD-I..
18: (CLIM:ACCEPT-1 #<CLIM:APPLICATION-PANE {10077DE563}> (CLIM:COMMAND :COMMAND-TABLE CLIM-DEMO::DEMO-DRIVER) :VIEW #<CLIM:TEXTUAL-VIEW {1003E3E943}> :DEFAULT NIL :DEFAULT-TYPE NIL :HISTORY NIL :INSERT-DE..
19: (CLIM:ACCEPT (CLIM:COMMAND :COMMAND-TABLE CLIM-DEMO::DEMO-DRIVER) :STREAM #<CLIM:APPLICATION-PANE {10077DE563}> :PROMPT NIL) [more]
20: (CLIM:READ-COMMAND CLIM-DEMO::DEMO-DRIVER :STREAM #<CLIM:APPLICATION-PANE {10077DE563}> :COMMAND-PARSER NIL :COMMAND-UNPARSER NIL :PARTIAL-COMMAND-PARSER NIL :USE-KEYSTROKES NIL)
21: ((:METHOD CLIM:READ-FRAME-COMMAND :AROUND (CLIM:STANDARD-APPLICATION-FRAME)) #<CLIM-DEMO::DEMO-DRIVER {10040B4443}> :STREAM #<CLIM:APPLICATION-PANE {10077DE563}>) [fast-method]
22: ((:METHOD CLIM:DEFAULT-FRAME-TOP-LEVEL (CLIM:STANDARD-APPLICATION-FRAME)) #<CLIM-DEMO::DEMO-DRIVER {10040B4443}> :COMMAND-PARSER NIL :COMMAND-UNPARSER NIL :PARTIAL-COMMAND-PARSER NIL :PROMPT "Command:..
23: ((:METHOD CLIM:RUN-FRAME-TOP-LEVEL (CLIM:STANDARD-APPLICATION-FRAME)) #<CLIM-DEMO::DEMO-DRIVER {10040B4443}>) [fast-method]
24: ((SB-PCL::FAST-METHOD CLIM:RUN-FRAME-TOP-LEVEL (CLIM:STANDARD-APPLICATION-FRAME)) #<unavailable argument> #<unavailable argument> #<CLIM-DEMO::DEMO-DRIVER {10040B4443}>) [more]
25: ((:METHOD CLIM:RUN-FRAME-TOP-LEVEL :AROUND (CLIM:STANDARD-APPLICATION-FRAME)) #<CLIM-DEMO::DEMO-DRIVER {10040B4443}>) [fast-method]
26: ((LAMBDA NIL :IN BORDEAUX-THREADS::BINDING-DEFAULT-SPECIALS))
- After selecting any closing restart try again
(clim-demo:start-demo)
Cannot enable a disowned frame #<CLIM-DEMO::DEMO-DRIVER {10040B4443}>
[Condition of type SIMPLE-ERROR]
Restarts:
0: [NIL] Demo Driver top level
1: [NIL] Exit Demo Driver
2: [ABORT] abort thread (#<THREAD "Demo Driver" RUNNING {1003AB56B3}>)
Backtrace:
0: ((:METHOD CLIM:ENABLE-FRAME (CLIM:STANDARD-APPLICATION-FRAME)) #<CLIM-DEMO::DEMO-DRIVER {10040B4443}>) [fast-method]
1: ((:METHOD CLIM:DEFAULT-FRAME-TOP-LEVEL (CLIM:STANDARD-APPLICATION-FRAME)) #<CLIM-DEMO::DEMO-DRIVER {10040B4443}> :COMMAND-PARSER NIL :COMMAND-UNPARSER NIL :PARTIAL-COMMAND-PARSER NIL :PROMPT "Command:..
2: ((:METHOD CLIM:RUN-FRAME-TOP-LEVEL (CLIM:STANDARD-APPLICATION-FRAME)) #<CLIM-DEMO::DEMO-DRIVER {10040B4443}>) [fast-method]
3: ((SB-PCL::FAST-METHOD CLIM:RUN-FRAME-TOP-LEVEL (CLIM:STANDARD-APPLICATION-FRAME)) #<unavailable argument> #<unavailable argument> #<CLIM-DEMO::DEMO-DRIVER {10040B4443}>) [more]
4: ((:METHOD CLIM:RUN-FRAME-TOP-LEVEL :AROUND (CLIM:STANDARD-APPLICATION-FRAME)) #<CLIM-DEMO::DEMO-DRIVER {10040B4443}>) [fast-method]
5: ((LAMBDA NIL :IN BORDEAUX-THREADS::BINDING-DEFAULT-SPECIALS))
6: ((FLET #:WITHOUT-INTERRUPTS-BODY-1138 :IN SB-THREAD::INITIAL-THREAD-FUNCTION-TRAMPOLINE))
7: ((FLET SB-THREAD::WITH-MUTEX-THUNK :IN SB-THREAD::INITIAL-THREAD-FUNCTION-TRAMPOLINE))
8: ((FLET #:WITHOUT-INTERRUPTS-BODY-358 :IN SB-THREAD::CALL-WITH-MUTEX))
9: (SB-THREAD::CALL-WITH-MUTEX #<CLOSURE (FLET SB-THREAD::WITH-MUTEX-THUNK :IN SB-THREAD::INITIAL-THREAD-FUNCTION-TRAMPOLINE) {7FFFF0A56D6B}> #<SB-THREAD:MUTEX "thread result lock" owner: #<SB-THREAD:THR..