From: Masatsugu Nagata (nagata@KURIMS.KYOTO-U.AC.JP)
Date: 11 Feb 99, 11:03 EST
From: Masatsugu Nagata <nagata@KURIMS.KYOTO-U.AC.JP>
Subject: 'zoom' in Alpha
Hi,
Herouth Maoz wrote:
> But what if you want to? Nothing simpler, in Alpha. Just use "Single Page"
> - option-command-slash (as opposed to command-slash which is by default
> "zoom").
>
Oh!! There was already one! I din't know that. :)
Thanks, Herouth, for pointing it out for me.
In ':SystemCode:win.tcl', there is:
###
proc singlePage {} {shrinkFull}
proc shrinkFull {} {
global tileTop tileHeight tileLeft defWidth
moveWin $tileLeft $tileTop
sizeWin $defWidth $tileHeight
}
###
Yes, this is a simple and nice proc, that just sets the window to the
default size/location. (It doesn't remember the previous size/location,
though).
Yes, I agree that this would be enough, and it's fine that it's also bound
to cmd-opt-"/", except that, as Herouth has pointed out, that the name
"Single Page" is probably not so appropriate.
> Where are the problems?
>
> 1) Why call it "single page", when in reality it's "default size" and
> has nothing whatsoever to do with pages?
>
Agreed. I second Herouth's motion to rename "singlePage" to "defaultSize".
> 2) If option-cmd-/ is, in fact, option-zoom, and actually, the menu item
> "zoom" is replaced with "single page" when pressing option, then why
> does pressing option and clicking the zoom box not have the same effect?
>
> Herouth
>
Hmm... That reminds me: Finder 'zoom' its windows differently:
If we click the zoombox of Finder's window, the window is resized so that
it just fits the current contents.
If we option-click the zoombox of Finder's window, the window is zoomed
fullscreen, regardless of the window content.
Isn't _this_ the "Mac way"?
Well, I now agree (thanks to Herouth), that the current 'zoom' configuration
of Alpha is reasonable enough (except that "singlePage" would be better
renamed), but personally, I am so used to my current 'zzoom' configuration
(that I've been using for years; cmd-/ ('zzoom') toggles the current
and "default" window size/location, and zoombox-clicking ('zoom')
(or shift-F9) toggles the current and "fullscreen" window size/location.)
Naturally, this is a personal preference matter, which would certainly be
relevant to one's work habit and one's monitor screen size/configuration.
>>>
Jonathan wrote:
> >Could someone who has Alpha source code (Jonathan?) check out what
> >actually the core 'zoom' function does?
>
> I'll try to remember to look tonight.
>
My apologies. It SEEMS that "zoom" is not defined as a core function.
It IS defined as a proc, in':SystemCode:win.tcl'.
(I noticed this yesterday, after I sent out my mail)
Although "zoom" is listed in the "Alpha Commands" help file (that lists
the internal core functions), and although the shell window shows something
special for "zoom" (see below), it seems that Alpha stops "zoom"-ing
anything (clicking the zoombox does nothing) if I rename "proc zoom" to
"proc boom" in 'win.tcl' and restart Alpha. So, it looks like "zoom" is
only defined as a proc in 'win.tcl'.
Here is the "something special in the shell window":
- Launch Alpha 7.1.8 and open the shell window.
('win.tcl' is not loaded yet, at this time)
- Type "zoom" and Return, then the shell window zooms and,
--> the window coordinates are returned onto the shell window. <--
- But now, the 'win.tcl' file is already loaded, so,
- if you type "zoom" and Return, again, the window zooms, but
nothing is returned.
Why are the coordinate numbers returned only at the first time (only when
'win.tcl' is not yet loaded?
Mark
--
Mark Nagata
mailto:nagata@kurims.kyoto-u.ac.jp