[info-mcl] Tab views

[Octav Popescu]

I did a little more testing. I redefined the test function as:

(defun test-mpv ()
  (let* ((view (make-instance 'multi-pane-view
                 :view-position #@(10 10)
                 :view-size     #@(300 120)))
         (window (make-instance 'window
                   :view-subviews (list view)
                   :window-show nil))
         (pane-1 (make-instance 'view
                   :view-subviews (list
                                   (make-instance 'static-text-dialog-item
                                     :view-position #@(10 10)
                                     :dialog-item-text "Foo"))))
         (pane-2 (make-instance 'view
                   :view-subviews (list
                                   (make-instance 'static-text-dialog-item
                                     :view-position #@(32 10)
                                     :dialog-item-text "Bar"))))
         (pane-3 (make-instance 'view
                   :view-subviews (list
                                   (make-instance 'static-text-dialog-item
                                     :view-position #@(54 10)
                                     :dialog-item-text "Baz")))))
    (add-pane view pane-1 "Page One")
    (add-pane view pane-2 "Page Two")
    (add-pane view pane-3 "Page Three")
    window))

Now it doesn't crash when running (test-mpv), but it crashes when I 
evaluate (window-show *) afterwards. If I remove the 3 panes from 
multi-pane-view, it doesn't crash anymore. So I'm guessing it crashes 
when it tries to display the tabs. Which was probably obvious, since 
they look different in OS 10.5. :-)

Octav

Octav Popescu wrote:
> 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?
>
> 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.
>
> Thanks,
> Octav
>
> 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, like this 
>> for OSX 10.4:
>>
>>
>>
>>
>>
>> -- Terje
>> ------------------------------------------------------------------------
>>
>> _______________________________________________
>> info-mcl mailing list
>> info-mcl at clozure.com
>> http://clozure.com/mailman/listinfo/info-mcl
>>   
>>     
> _______________________________________________
> info-mcl mailing list
> info-mcl at clozure.com
> http://clozure.com/mailman/listinfo/info-mcl
>
>