Re: [MacPerl] BBEdit extensions for MacPerl

[Nicolas Le Clerc <nleclerc@pobox.com>]

At 11:32 AM -0400 6/6/97, Chris Nandor wrote:

> It seems that the output to a MacPerl window for STDOUT/STDERR only
>works
> with Perl Filters.  For instance, Check Syntax created a new window on
> failure (though it did bring up an error browser, which is
>ultra-cool).  I
> would prefer to have all STDERR/STDOUT directed to one MacPerl window,
> except for Perl Filters STDOUT, which I would want directed back into
>the
> original window.

Yes, the new extensions are really cool.

I have quite the same problem: I don't get the error browser. It seems
that the ``Use error browser'' option and the ``Output to MacPerl
window'' option don't ``cohabit'' (as we say in French;-) very well. I
managed to get the error browser window once before setting the output
to the MacPerl window. Also, I haven't found how to have additional
extensions show up in the palette, although I carefully followed the
instructions to create new extensions.

> But other than that, I love the improvements ... when I get my 17"
>monitor
> next week I'll use the palette a lot more ... :-)

I have just finished an AS script to reorganize my windows. It is
designed for 640x480 screens. The main window (for scripts) shows 80
columns and 23 lines (assuming you are using ProFont 9 pts). The
MacPerl window shows 87 columns and 9 lines. People with larger screens
(or Chris when he'll have his new 17'' monitor) should change
bottomBound to the height of their screen - 5 (otherwise the window
will be resized) and middleBound to whatever they want. Have fun.



set leftBound to 0
set rightBound to leftBound + 550
set topBound to 38
set bottomBound to 475
set middleBound to 345

tell application "BBEdit 4.0"
	repeat with i from 1 to (count every window)
		tell window i
			if window kind is Editing Window then
				if (name ends with ".pl") or (name ends with ".pm") then
					if bounds ­ {leftBound, topBound, rightBound,
middleBound} then set bounds to {leftBound, topBound, rightBound,
middleBound}
					if cursor position ­ true then set cursor position
to true
					if line numbers ­ true then set line numbers to true
					if philip bar ­ true then set philip bar to true
					if status bar ­ true then set status bar to true
					if tab stops ­ true then set tab stops to true
					--if show invisibles ­ true then set show
invisibles to true
					if show spaces ­ false then set show spaces to false
					if auto indent ­ true then set auto indent to true
					if soft wrapping ­ false then set soft wrapping to
false
					if auto balance ­ true then set auto balance to true
					if smart quotes ­ false then set smart quotes to
false
				else if name = "MacPerl" then
					if bounds ­ {leftBound, middleBound + 4,
rightBound, bottomBound} then set bounds to {leftBound, middleBound +
4, rightBound, bottomBound}
					if cursor position ­ true then set cursor position
to true
					if line numbers ­ false then set line numbers to
false
					if status bar ­ false then set status bar to false
					if tab stops ­ true then set tab stops to true
					if show invisibles ­ false then set show invisibles
to false
					if show spaces ­ false then set show spaces to false
					if soft wrapping ­ false then set soft wrapping to
false
				end if
			end if
		end tell
	end repeat
end tell




--
Nicolas LE CLERC
<mailto:nleclerc@pobox.com>
<finger:nleclerc@pobox.com>



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