clim-tos issueshttps://gitlab.common-lisp.net/mcclim/gramps-clim2/-/issues2017-10-28T15:51:03Zhttps://gitlab.common-lisp.net/mcclim/gramps-clim2/-/issues/3Workarounds made for demo need to be investigated and corrected.2017-10-28T15:51:03ZJacek Złydachcommon-lisp.net@jacek.zlydach.plWorkarounds made for demo need to be investigated and corrected.See comments starting with `NOTE WORKAROUND` in `clim/frames.lisp`, `silica/db-box.lisp` and `clim/db-menu.lisp`.See comments starting with `NOTE WORKAROUND` in `clim/frames.lisp`, `silica/db-box.lisp` and `clim/db-menu.lisp`.Working systemhttps://gitlab.common-lisp.net/mcclim/gramps-clim2/-/issues/22Reduce the number of style warnings in CLIM2017-10-28T15:51:21ZJacek Złydachcommon-lisp.net@jacek.zlydach.plReduce the number of style warnings in CLIMWe have a pretty ridiculous amount of style warnings when building CLIM under SBCL. Most of them are related to implicit definition of generics. Not really a show-stopper, but it makes compilation output harder to read when one's doing a...We have a pretty ridiculous amount of style warnings when building CLIM under SBCL. Most of them are related to implicit definition of generics. Not really a show-stopper, but it makes compilation output harder to read when one's doing a clean build directly via ASDF.https://gitlab.common-lisp.net/mcclim/gramps-clim2/-/issues/26Redisplay issues2017-11-24T11:56:30ZJacek Złydachcommon-lisp.net@jacek.zlydach.plRedisplay issuesThings like this:
![clim-redisplay](/uploads/125c19a7cefa842fa5ecbfc9c2cac1b2/clim-redisplay.png)
Omnipresent and occuring at random. Exist since the beginning of my work on the project. Happen both under StumpWM and Unity.Things like this:
![clim-redisplay](/uploads/125c19a7cefa842fa5ecbfc9c2cac1b2/clim-redisplay.png)
Omnipresent and occuring at random. Exist since the beginning of my work on the project. Happen both under StumpWM and Unity.https://gitlab.common-lisp.net/mcclim/gramps-clim2/-/issues/25Keyboard input propagates from Demo Driver to Listener Demo2017-10-29T16:05:21ZJacek Złydachcommon-lisp.net@jacek.zlydach.plKeyboard input propagates from Demo Driver to Listener DemoA weird kind of issue. To reproduce:
1. Launch the Demo Driver.
2. Press some keys.
3. Launch Lisp Listener demo.
4. Observe the keys being typed in as Lisp Listener input.
Should kind of not happen, IMO.A weird kind of issue. To reproduce:
1. Launch the Demo Driver.
2. Press some keys.
3. Launch Lisp Listener demo.
4. Observe the keys being typed in as Lisp Listener input.
Should kind of not happen, IMO.https://gitlab.common-lisp.net/mcclim/gramps-clim2/-/issues/19Issue with switching window on stumpwm2017-10-28T15:51:15ZJacek Złydachcommon-lisp.net@jacek.zlydach.plIssue with switching window on stumpwmAll the demo windows have this weird issue, in which if I try to switch to another window that's currently not visible, it's not displayed anymore - it becomes transparent/empty (but apparently exists for a while, until I switch away fro...All the demo windows have this weird issue, in which if I try to switch to another window that's currently not visible, it's not displayed anymore - it becomes transparent/empty (but apparently exists for a while, until I switch away from it - then it dies). This does NOT happen when I just kill the window or make it close itself normally - then the previous window, hiding underneath, becomes visible and fully operational.
I'm having trouble describing what the issue is, exactly, but it's totally 100% annoying. I'm not sure if anything similar happens in non-tiling WM's, e.g. with minimizing - gonna check that later. This issue will be renamed if I can identify the essence of the problem more precisely.
(Also, to be clear, it existed since the very first time we've managed to get something to be shown on screen; it's not a new issue.)Working systemhttps://gitlab.common-lisp.net/mcclim/gramps-clim2/-/issues/14In Lisp Listener - sometimes an invalidated cached region seems to slip throu...2017-10-28T15:51:07ZJacek Złydachcommon-lisp.net@jacek.zlydach.plIn Lisp Listener - sometimes an invalidated cached region seems to slip through to CLIM-UTILS:LTRB-OVERLAPS-LTRB-PIt seems that cached regions and transformations are "invalidated" by setting their `left` slot to `NIL`. See `invalidate-cached-regions ((sheet sheet-transformation-mixin))` and `invalidate-cached-transformations ((sheet sheet-transform...It seems that cached regions and transformations are "invalidated" by setting their `left` slot to `NIL`. See `invalidate-cached-regions ((sheet sheet-transformation-mixin))` and `invalidate-cached-transformations ((sheet sheet-transformation-mixin))` methods in `silica/sheet.lisp`.
Somehow, this slips through the call to `sheet-device-region` and ends up crashing `compute-gcontext-clip-mask`.
To reproduce, fire up Lisp Listener demo, place your mouse pointer over the stream of TIMEOUTs, and just wait a while.
I marked some suspicious places with comment notes.
Condition with some context expanded:
```
The value
NIL
is not of type
REAL
[Condition of type TYPE-ERROR]
Restarts:
0: [ABORT] Return to Demo Driver command level
1: [NIL] Demo Driver top level
2: [NIL] Exit Demo Driver
3: [ABORT] abort thread (#<THREAD "Demo Driver" RUNNING {10023A8D53}>)
Backtrace:
0: (CLIM-UTILS:LTRB-OVERLAPS-LTRB-P NIL 3 941 1042 0 -44297 958 -43238)
Locals:
#:ARG00 = NIL
BOTTOM1 = 1042
BOTTOM2 = -43238
#:G29 = NIL
LEFT1 = NIL
LEFT2 = 0
SB-C::MAXREST = 0
RIGHT1 = 941
RIGHT2 = 958
TOP1 = 3
TOP2 = -44297
1: ((:METHOD CLX-CLIM::COMPUTE-GCONTEXT-CLIP-MASK (CLX-CLIM::CLX-MEDIUM)) #<CLX-CLIM::CLX-MEDIUM {100D6E28D3}>) [fast-method]
Locals:
CLX-CLIM::CBOTTOM#1 = 1042
CLX-CLIM::CLEFT#1 = NIL
CLX-CLIM::CRIGHT#1 = 941
CLX-CLIM::CTOP#1 = 3
#:G0 = NIL
CLX-CLIM::MBOTTOM = 1056
CLX-CLIM::MBOTTOM#1 = 1056
CLIM:MEDIUM = #<CLX-CLIM::CLX-MEDIUM {100D6E28D3}>
CLX-CLIM::MEDIUM-REGION = #<CLIM:STANDARD-BOUNDING-RECTANGLE /x -3:955 y -3:1056/ {100DCDFCD3}>
CLX-CLIM::MLEFT = -3
CLX-CLIM::MLEFT#1 = -3
CLX-CLIM::MRIGHT = 955
CLX-CLIM::MRIGHT#1 = 955
CLX-CLIM::MTOP = -3
CLX-CLIM::MTOP#1 = -3
CLIM:REGION = #<CLIM:STANDARD-BOUNDING-RECTANGLE /x NIL:941 y 3:1042/ {100FAF4163}>
CLIM:SHEET = #<CLIM:INTERACTOR-PANE {100D050483}>
2: ((:METHOD CLX-CLIM::CLX-DECODE-INK :AROUND (T CLX-CLIM::CLX-MEDIUM)) #<CLIM-UTILS:FLIPPING-INK #<CLIM Foreground> and #<CLIM Background> {1004F78FE3}> #<CLX-CLIM::CLX-MEDIUM {100D6E28D3}>) [fast-metho..
Locals:
SB-PCL::.NEXT-METHOD-CALL. = #S(SB-PCL::FAST-METHOD-CALL ..)
#:GCONTEXT = #<XLIB:GCONTEXT :0 37748768>
CLX-CLIM::INK = #<CLIM-UTILS:FLIPPING-INK #<CLIM Foreground> and #<CLIM Background> {1004F78FE3}>
CLX-CLIM::INK#1 = #<XLIB:GCONTEXT :0 37748768>
CLIM:MEDIUM = #<CLX-CLIM::CLX-MEDIUM {100D6E28D3}>
3: ((:METHOD CLIM:MEDIUM-DRAW-RECTANGLE* (CLX-CLIM::CLX-MEDIUM T T T T T)) #<CLX-CLIM::CLX-MEDIUM {100D6E28D3}> 2 905 73 924 NIL) [fast-method]
Locals:
CLIM-UTILS:BOTTOM = 924
CLX-CLIM::DRAWABLE = #<XLIB:WINDOW :0 2400015>
CLX-CLIM::FILLED = NIL
CLX-CLIM::INK = #<CLIM-UTILS:FLIPPING-INK #<CLIM Foreground> and #<CLIM Background> {1004F78FE3}>
CLIM-UTILS:LEFT = 2
CLIM:LINE-STYLE = #<CLIM:STANDARD-LINE-STYLE Units normal, thickness 1, joint miter, cap butt, dashes NIL {1004F7E123}>
CLIM:MEDIUM = #<CLX-CLIM::CLX-MEDIUM {100D6E28D3}>
CLIM-UTILS:RIGHT = 73
CLIM:SHEET = #<CLIM:INTERACTOR-PANE {100D050483}>
CLIM-UTILS:TOP = 905
CLX-CLIM::TRANSFORM = #<CLIM-UTILS:TRANSLATION-TRANSFORMATION (3.0,-44294.0) {100FAF3BB3}>
4: ((FLET CALL-NEXT-METHOD :IN "/home/temporal/repos/franz/gramps-clim2/silica/graphics.lisp") #<CLX-CLIM::CLX-MEDIUM {100D6E28D3}> -1 45199 70 45218 NIL)
Locals:
SB-PCL::.ARGS-TAIL. = NIL
SB-PCL::.NEXT-METHOD-CALL. = #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION (SB-PCL::FAST-METHOD CLIM:MEDIUM-DRAW-RECTANGLE* (CLX-CLIM::CLX-MEDIUM T T T T T))> :PV NIL :NEXT-METHOD-CALL NIL :ARG-INFO (6))
SB-PCL::CNM-ARGS = (#<CLX-CLIM::CLX-MEDIUM {100D6E28D3}> -1 45199 70 45218 NIL)
#:EMF-N-149 = #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION (SB-PCL::FAST-METHOD CLIM:MEDIUM-DRAW-RECTANGLE* (CLX-CLIM::CLX-MEDIUM T T T T T))> :PV NIL :NEXT-METHOD-CALL NIL :ARG-INFO (6))
CLIM-SILICA::FILLED = NIL
CLIM-SILICA::FILLED#1 = NIL
#:G150 = #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION (SB-PCL::FAST-METHOD CLIM:MEDIUM-DRAW-RECTANGLE* (CLX-CLIM::CLX-MEDIUM T T T T T))> :PV NIL :NEXT-METHOD-CALL NIL :ARG-INFO (6))
CLIM:MEDIUM = #<CLX-CLIM::CLX-MEDIUM {100D6E28D3}>
CLIM:MEDIUM#1 = #<CLX-CLIM::CLX-MEDIUM {100D6E28D3}>
CLIM-SILICA::X1 = -1
CLIM-SILICA::X1#1 = -1
CLIM-SILICA::X2 = 70
CLIM-SILICA::X2#1 = 70
CLIM-SILICA::Y1 = 45199
CLIM-SILICA::Y1#1 = 45199
CLIM-SILICA::Y2 = 45218
CLIM-SILICA::Y2#1 = 45218
5: ((:METHOD CLIM:MEDIUM-DRAW-RECTANGLE* :AROUND (CLIM:BASIC-MEDIUM T T T T T)) #<CLX-CLIM::CLX-MEDIUM {100D6E28D3}> -1 45199 70 45218 NIL) [fast-method]
Locals:
SB-PCL::.NEXT-METHOD-CALL. = #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION (SB-PCL::FAST-METHOD CLIM:MEDIUM-DRAW-RECTANGLE* (CLX-CLIM::CLX-MEDIUM T T T T T))> :PV NIL :NEXT-METHOD-CALL NIL :ARG-INFO (6))
CLIM-SILICA::FILLED = NIL
#:G187 = -1
#:G188 = 45199
#:G189 = 70
#:G190 = 45218
CLIM:MEDIUM = #<CLX-CLIM::CLX-MEDIUM {100D6E28D3}>
CLIM-SILICA::TRANSFORM#1 = #<CLIM-UTILS:IDENTITY-TRANSFORMATION {1004F66113}>
CLIM-SILICA::X1 = -1
CLIM-SILICA::X2 = 70
CLIM-SILICA::Y1 = 45199
CLIM-SILICA::Y2 = 45218
6: (CLIM-INTERNALS::DRAW-RECTANGLE-INTERNAL #<CLIM:INTERACTOR-PANE {100D050483}> 0 0 -1 45199 70 45218 #<CLIM-UTILS:FLIPPING-INK #<CLIM Foreground> and #<CLIM Background> {1004F78FE3}> #<CLIM:STANDARD-LI..
Locals:
BOTTOM = 45218
INK = #<CLIM-UTILS:FLIPPING-INK #<CLIM Foreground> and #<CLIM Background> {1004F78FE3}>
LEFT = -1
#:LETF-GLOBALLY-TEMP-79 = #<CLIM:STANDARD-LINE-STYLE Units normal, thickness 1, joint miter, cap butt, dashes NIL {1004F7E123}>
#:LETF-GLOBALLY-TEMP-80 = #<CLIM-UTILS:IDENTITY-TRANSFORMATION {1004F66113}>
#:LETF-GLOBALLY-TEMP-81 = #<CLIM-UTILS:FLIPPING-INK #<CLIM Foreground> and #<CLIM Background> {1004F78FE3}>
MEDIUM = #<CLX-CLIM::CLX-MEDIUM {100D6E28D3}>
RIGHT = 70
STREAM = #<CLIM:INTERACTOR-PANE {100D050483}>
STYLE = #<CLIM:STANDARD-LINE-STYLE Units normal, thickness 1, joint miter, cap butt, dashes NIL {1004F7E123}>
TOP = 45199
XOFF = 0
YOFF = 0
7: ((:METHOD CLIM:HIGHLIGHT-OUTPUT-RECORD (CLIM-INTERNALS::OUTPUT-RECORD-ELEMENT-MIXIN T T)) #<CLIM:STANDARD-PRESENTATION CLIM:EXPRESSION :TIMEOUT /x 0:70 y 45200:45218/ {100FAC5903}> #<CLIM:INTERACTOR-P..
Locals:
CLIM-UTILS:BOTTOM = 45218
CLIM-UTILS:BOTTOM#1 = 45218
CLIM-UTILS:LEFT = 0
CLIM-UTILS:LEFT#1 = 0
CLIM-INTERNALS::RECORD = #<CLIM:STANDARD-PRESENTATION CLIM:EXPRESSION :TIMEOUT /x 0:70 y 45200:45218/ {100FAC5903}>
CLIM-UTILS:RIGHT = 70
CLIM-UTILS:RIGHT#1 = 70
STREAM = #<CLIM:INTERACTOR-PANE {100D050483}>
CLIM-UTILS:TOP = 45200
CLIM-UTILS:TOP#1 = 45200
CLIM-INTERNALS::XOFF = 0
CLIM-INTERNALS::XOFF#1 = 0
CLIM-INTERNALS::YOFF = 0
CLIM-INTERNALS::YOFF#1 = 0
8: ((FLET CALL-NEXT-METHOD :IN "/home/temporal/repos/franz/gramps-clim2/clim/presentations.lisp"))
Locals:
SB-PCL::.NEXT-METHOD-CALL. = #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION (SB-PCL::FAST-METHOD CLIM:HIGHLIGHT-OUTPUT-RECORD (CLIM-INTERNALS::OUTPUT-RECORD-ELEMENT-MIXIN T T))> :PV NIL :NEXT-METHOD-CALL NIL :ARG-INFO (3))
SB-PCL::CNM-ARGS = NIL
#:EMF-N-15 = #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION (SB-PCL::FAST-METHOD CLIM:HIGHLIGHT-OUTPUT-RECORD (CLIM-INTERNALS::OUTPUT-RECORD-ELEMENT-MIXIN T T))> :PV NIL :NEXT-METHOD-CALL NIL :ARG-INFO (3))
#:G16 = #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION (SB-PCL::FAST-METHOD CLIM:HIGHLIGHT-OUTPUT-RECORD (CLIM-INTERNALS::OUTPUT-RECORD-ELEMENT-MIXIN T T))> :PV NIL :NEXT-METHOD-CALL NIL :ARG-INFO (3))
CLIM-INTERNALS::RECORD = #<CLIM:STANDARD-PRESENTATION CLIM:EXPRESSION :TIMEOUT /x 0:70 y 45200:45218/ {100FAC5903}>
CLIM-INTERNALS::STATE = :UNHIGHLIGHT
STREAM = #<CLIM:INTERACTOR-PANE {100D050483}>
9: ((:METHOD CLIM:HIGHLIGHT-OUTPUT-RECORD :AROUND (CLIM:STANDARD-PRESENTATION T T)) #<CLIM:STANDARD-PRESENTATION CLIM:EXPRESSION :TIMEOUT /x 0:70 y 45200:45218/ {100FAC5903}> #<CLIM:INTERACTOR-PANE {100D..
Locals:
SB-PCL::.NEXT-METHOD-CALL. = #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION (SB-PCL::FAST-METHOD CLIM:HIGHLIGHT-OUTPUT-RECORD (CLIM-INTERNALS::OUTPUT-RECORD-ELEMENT-MIXIN T T))> :PV NIL :NEXT-METHOD-CALL NIL :ARG-INFO (3))
CLIM-INTERNALS::RECORD = #<CLIM:STANDARD-PRESENTATION CLIM:EXPRESSION :TIMEOUT /x 0:70 y 45200:45218/ {100FAC5903}>
CLIM-INTERNALS::SINGLE-BOX = :HIGHLIGHTING
CLIM-INTERNALS::STATE = :UNHIGHLIGHT
STREAM = #<CLIM:INTERACTOR-PANE {100D050483}>
10: ((:METHOD CLIM:HIGHLIGHT-PRESENTATION-METHOD (T T T T T T T)) #<unused argument> #<unused argument> #<unused argument> #<unused argument> #<CLIM:STANDARD-PRESENTATION CLIM:EXPRESSION :TIMEOUT /x 0:70 ..
Locals:
CLIM-INTERNALS::RECORD = #<CLIM:STANDARD-PRESENTATION CLIM:EXPRESSION :TIMEOUT /x 0:70 y 45200:45218/ {100FAC5903}>
CLIM-INTERNALS::STATE = :UNHIGHLIGHT
STREAM = #<CLIM:INTERACTOR-PANE {100D050483}>
11: ((FLET CLIM-INTERNALS::WITH-OUTPUT-RECORDING-OPTIONS-BODY :IN CLIM:HIGHLIGHT-PRESENTATION))
12: ((:METHOD CLIM:INVOKE-WITH-OUTPUT-RECORDING-OPTIONS (CLIM-INTERNALS::OUTPUT-RECORDING-MIXIN T T T)) #<CLIM:INTERACTOR-PANE {100D050483}> #<CLOSURE (FLET CLIM-INTERNALS::WITH-OUTPUT-RECORDING-OPTIONS-B..
13: (CLIM:HIGHLIGHT-PRESENTATION #<CLIM:STANDARD-PRESENTATION CLIM:EXPRESSION :TIMEOUT /x 0:70 y 45200:45218/ {100FAC5903}> CLIM:EXPRESSION #<CLIM:INTERACTOR-PANE {100D050483}> :UNHIGHLIGHT)
14: (CLIM:UNHIGHLIGHT-HIGHLIGHTED-PRESENTATION #<CLIM:APPLICATION-PANE {10032BE633}> T)
15: (CLIM:ACCEPT-1 #<CLIM:APPLICATION-PANE {10032BE633}> (CLIM:COMMAND :COMMAND-TABLE CLIM-DEMO::DEMO-DRIVER) :VIEW #<CLIM:TEXTUAL-VIEW {1004F66033}> :DEFAULT NIL :DEFAULT-TYPE NIL :HISTORY NIL :INSERT-DE..
16: ((:METHOD CLIM:STREAM-ACCEPT (CLIM-INTERNALS::INPUT-PROTOCOL-MIXIN T)) #<CLIM:APPLICATION-PANE {10032BE633}> (CLIM:COMMAND :COMMAND-TABLE CLIM-DEMO::DEMO-DRIVER) :VIEW #<CLIM:TEXTUAL-VIEW {1004F66033}..
17: (CLIM:ACCEPT (CLIM:COMMAND :COMMAND-TABLE CLIM-DEMO::DEMO-DRIVER) :STREAM #<CLIM:APPLICATION-PANE {10032BE633}> :PROMPT NIL)
18: (CLIM:ACCEPT (CLIM:COMMAND :COMMAND-TABLE CLIM-DEMO::DEMO-DRIVER) :STREAM #<CLIM:APPLICATION-PANE {10032BE633}> :PROMPT NIL) [more]
19: (CLIM:READ-COMMAND CLIM-DEMO::DEMO-DRIVER :STREAM #<CLIM:APPLICATION-PANE {10032BE633}> :COMMAND-PARSER NIL :COMMAND-UNPARSER NIL :PARTIAL-COMMAND-PARSER NIL :USE-KEYSTROKES NIL)
--more--
```Working systemhttps://gitlab.common-lisp.net/mcclim/gramps-clim2/-/issues/20Condition when resizing a window to close to 0 width or height2017-10-28T15:51:17ZJacek Złydachcommon-lisp.net@jacek.zlydach.plCondition when resizing a window to close to 0 width or heightWhen resizing a window, if you shrink it too much in one dimension, a condition gets signalled. It sounds reasonable in theory, though I recall seeing in XLib documentation a note that the application should generally live with whatever ...When resizing a window, if you shrink it too much in one dimension, a condition gets signalled. It sounds reasonable in theory, though I recall seeing in XLib documentation a note that the application should generally live with whatever size it gets (see [here](https://tronche.com/gui/x/xlib/window/create.html)).
For now, I suggest one or both of the following approaches:
* Finding a way to tell WM that the application needs to be no smaller than some given size (maybe through [this](https://tronche.com/gui/x/xlib/ICC/client-to-window-manager/wm-normal-hints.html)?) - various other programs I've tested, like Emacs, terminal and Files on Ubuntu, have some different minimum sizes set.
* Handling the condition by telling X to resize the window back.
Not sure whether the handling should happen on the demo size, or should some of it be integrated directly into CLX port as (configurable) "sane defaults".
---
Condition example with backtrace:
```
Trying to resize sheet #<CLIM:VBOX-PANE {10105F5A73}> to be too small (-1 x 236)
[Condition of type SIMPLE-ERROR]
Restarts:
0: [NIL] Restart event loop for #<CLX-PORT {100205AED3}>
1: [NIL] Exit event loop for #<CLX-PORT {100205AED3}>
2: [ABORT] abort thread (#<THREAD "CLIM Event Dispatcher for (CLX)" RUNNING {1002365A53}>)
Backtrace:
0: ((:METHOD CLIM:RESIZE-SHEET (CLIM:BASIC-SHEET T T)) #<CLIM:VBOX-PANE {10105F5A73}> -1 236) [fast-method]
Locals:
CLIM-SILICA::HEIGHT = 236
CLIM:SHEET = #<CLIM:VBOX-PANE {10105F5A73}>
CLIM-SILICA::WIDTH = -1
1: ((:METHOD CLIM:MOVE-AND-RESIZE-SHEET (CLIM:BASIC-SHEET T T T T)) #<CLIM:VBOX-PANE {10105F5A73}> 1 1 -1 236) [fast-method]
Locals:
CLIM-SILICA::HEIGHT = 236
CLIM:SHEET = #<CLIM:VBOX-PANE {10105F5A73}>
CLIM-SILICA::WIDTH = -1
CLIM-SILICA::X = 1
CLIM-SILICA::Y = 1
2: ((:METHOD CLIM:ALLOCATE-SPACE (CLIM:BORDER-PANE T T)) #<CLIM:OUTLINED-PANE {10104C8B83}> 1 238) [fast-method]
Locals:
CLIM-SILICA::HEIGHT = 238
CLIM:PANE = #<CLIM:OUTLINED-PANE {10104C8B83}>
CLIM-SILICA::WIDTH = 1
3: ((SB-PCL::EMF CLIM:NOTE-SHEET-REGION-CHANGED) #<unused argument> #<unused argument> #<CLIM:OUTLINED-PANE {10104C8B83}>)
Locals:
SB-PCL::.ARG0. = #<CLIM:OUTLINED-PANE {10104C8B83}>
SB-DEBUG::MORE = NIL
4: ((:METHOD CLIM:LAYOUT-FRAME (CLIM:STANDARD-APPLICATION-FRAME)) #<CLIM-DEMO::DEMO-DRIVER {10026A5233}> 1 238) [fast-method]
Locals:
CLIM-INTERNALS::FRAME = #<CLIM-DEMO::DEMO-DRIVER {10026A5233}>
CLIM-INTERNALS::HEIGHT = 238
CLIM-INTERNALS::WIDTH = 1
5: ((SB-PCL::EMF CLIM:NOTE-SHEET-REGION-CHANGED) #<unused argument> #<unused argument> #<CLIM:TOP-LEVEL-SHEET {10104C8BC3}> :PORT-DID-IT T)
Locals:
SB-PCL::.ARG0. = #<CLIM:TOP-LEVEL-SHEET {10104C8BC3}>
SB-DEBUG::MORE = (:PORT-DID-IT T)
6: ((:METHOD CLIM-SILICA:MIRROR-REGION-UPDATED (CLIM:BASIC-PORT CLIM:MIRRORED-SHEET-MIXIN)) #<CLX-CLIM::CLX-PORT {100205AED3}> #<CLIM:TOP-LEVEL-SHEET {10104C8BC3}>) [fast-method]
Locals:
CLIM:PORT = #<CLX-CLIM::CLX-PORT {100205AED3}>
CLIM:SHEET = #<CLIM:TOP-LEVEL-SHEET {10104C8BC3}>
CLIM-SILICA::TRANSFORMATION-CHANGED-P = NIL
7: ((:METHOD CLIM:HANDLE-EVENT (CLIM:MIRRORED-SHEET-MIXIN CLIM:WINDOW-CONFIGURATION-EVENT)) #<CLIM:TOP-LEVEL-SHEET {10104C8BC3}> #<CLIM:WINDOW-CONFIGURATION-EVENT /x 0:1 y 0:238/>) [fast-method]
Locals:
CLIM:EVENT = #<CLIM:WINDOW-CONFIGURATION-EVENT /x 0:1 y 0:238/>
CLIM:SHEET = #<CLIM:TOP-LEVEL-SHEET {10104C8BC3}>
8: ((FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK :IN CLIM:PROCESS-NEXT-EVENT))
9: ((FLET "WITHOUT-INTERRUPTS-BODY-29" :IN SB-THREAD::CALL-WITH-RECURSIVE-LOCK))
10: (SB-THREAD::CALL-WITH-RECURSIVE-LOCK #<CLOSURE (FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK :IN CLIM:PROCESS-NEXT-EVENT) {7FFFEAB5E5AB}> #<SB-THREAD:MUTEX "CLX Event Lock" owner: #<SB-THREAD:THREAD "CLI..
11: ((:METHOD CLIM:PROCESS-NEXT-EVENT (CLX-CLIM::CLX-PORT)) #<unavailable argument> :TIMEOUT #<unavailable argument> :WAIT-FUNCTION #<unused argument> :STATE #<unused argument>) [fast-method]
12: ((:METHOD CLIM-SILICA:PORT-EVENT-LOOP (CLIM:BASIC-PORT)) #<CLX-CLIM::CLX-PORT {100205AED3}>) [fast-method]
13: ((FLET "WITHOUT-INTERRUPTS-BODY-4" :IN SB-THREAD::INITIAL-THREAD-FUNCTION-TRAMPOLINE))
14: ((FLET SB-THREAD::WITH-MUTEX-THUNK :IN SB-THREAD::INITIAL-THREAD-FUNCTION-TRAMPOLINE))
15: ((FLET "WITHOUT-INTERRUPTS-BODY-1" :IN SB-THREAD::CALL-WITH-MUTEX))
16: (SB-THREAD::CALL-WITH-MUTEX #<CLOSURE (FLET SB-THREAD::WITH-MUTEX-THUNK :IN SB-THREAD::INITIAL-THREAD-FUNCTION-TRAMPOLINE) {7FFFEAB5EC9B}> #<SB-THREAD:MUTEX "thread result lock" owner: #<SB-THREAD:THR..
17: (SB-THREAD::INITIAL-THREAD-FUNCTION-TRAMPOLINE #<SB-THREAD:THREAD "CLIM Event Dispatcher for (CLX)" RUNNING {1002365A53}> NIL #<CLOSURE (LAMBDA NIL :IN CLIM:RESTART-PORT) {1002364C5B}> (#<SB-THREAD:TH..
18: ("foreign function: call_into_lisp")
19: ("foreign function: new_thread_trampoline")
--more--
```