[info-mcl] Tab views

[Terje Norderhaug]

On Sep 4, 2008, at 6:32 PM, Octav Popescu wrote:
> Terje Norderhaug wrote:
>>  On Sep 2, 2008, at 2:27 PM, Octav Popescu wrote:
>>
>>> Has anybody implemented tabbed views for MCL 5.0 or later?
>>
>> See the multi-pane-view.lisp and tab-bar-view.lisp files of the
>> Appearance Manager in the MCL 5.2 Examples. It provides the basic
>> functionality for tabbed views. To get a modern appearance, patch it
>> with my Modern MCL contribution (enclosed), which turns the old  
>> school
>> example in multi-pane-view into a contemporary look & feel
>
> I'd seen those files, but I'd being trying to load them in an image  
> that
> had modern-mcl already loaded, and then they just show the old Mac  
> OS 9
> look. Now I figured I need to load modern-mcl after multi-pane- 
> view, but
> still no luck. When I try to run the example in multi-pane-view, it
> crashes MCL 5.2 on Mac OS 10.5.4. That is, it doesn't get into a break
> loop, but rather MCL completely disappears from the screen. :-) I  
> don't
> have 10.4 running on any machine so I can't test. How could I help  
> with
> finding the problem?

Turns out the modern-mcl patches to multi-pane-view did not work in  
MCL 5.2. Possibly the reason is that the Appearance Manager function  
used to draw tabbed views are deprecated. I have enclosed a file with  
draft updates of the relevant functionality, using Quartz HI. The  
patch has been tested in MCL 5.2 in OSX 10.4.11, but will likely also  
work in OSX 10.5.

> I also see that the version of modern-mcl I had is slightly different
> from the one you just posted, although it's still 2.1. I don't  
> remember
> exactly where I got it from, maybe from your last posting on the list?
> I'm assuming I should keep the one you just sent? The multi-pane-view
> example still crashes with both of them.

Either should be fine.

-- Terje

-------------- next part --------------
A non-text attachment was scrubbed...
Name: fix-tabs.lisp
Type: application/applefile
Size: 965 bytes
Desc: not available
URL: <http://clozure.com/pipermail/info-mcl/attachments/20080905/1bb4790d/attachment.bin>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: fix-tabs.lisp
Type: application/octet-stream
Size: 6749 bytes
Desc: not available
URL: <http://clozure.com/pipermail/info-mcl/attachments/20080905/1bb4790d/attachment.obj>