Re: [MacPerl] Mac::TextEdit and Edit menu crashes

[ajf@afco.demon.co.uk (Alan Fry)]

Kevin Reid <kpreid@ibm.net> writes Thu, 18 Jun 1998 08:29:03 -0400:

[snip]

>To create a scrolling TextEdit field. The scroll bar should be created
>and handled automatically by the text box.
>
>Or is the Mac OS's toolbox so far behind the Apple IIGS's toolbox that
>it can't do that?

I can't comment on that, but a TextEdit field created with TextEdit.pm in
MacPerl, asfaik, creates only a text edit field. If you want scroll bars
then you have to put them in yourself. It is a non-trivial task, imo,
taking into account the need (usually) to handle window and TE field
resizes.

[snip]

>I was hoping that I could at least disable those menu items when one of
>my windows was in front. Could you show me some example code for this?

You should be able to do this:

        use Mac::Menus;
        ...
        $mnu = GetMenu(130)  # gets handle to MacPerl's Edit Menu
        DisableItem($mnu, 1) # disable item 1 "Undo" etc.
        ...
        EnableItem($mnu, 1)  # restore "Undo" to the menu when done

This usually works, but I find checking right now, it does _not_ seem to
work with MacPerl's Edit Menu. I don't know why. Maybe someone else can
shed some light on this? (PPC/MacOS 8.1/MacPerl v1.2.0r4).

You can find out if your window is the front window by looking to see if
${FrontWindow()} == $$ptr (where $ptr is the grafPtr for your window). You
can do this in the 'WaitNextEvent' loop, so that appropriate action can be
taken as soon as your window gets covered or uncovered.

Alan Fry



***** Want to unsubscribe from this list?
***** Send mail with body "unsubscribe" to mac-perl-request@iis.ee.ethz.ch