[Oberon] Displaying the current directory

[muller at inf.ethz.ch]

"Ghost in the Machine" <cangelich at famvid.com> wrote:
> A "CWD" button wouldn't kill the looks of Oberon and might be a good
> thing?

Here's how to build it with Gadgets:

1. Click ML in a text gadget to set a caret.
2. Execute: Gadgets.Insert TextField CurrentDirectory ~

This generates a textfield gadget that has the current directory as
an underlying model.  It will always display the current directory.

3. Select the field with MR (it is shaded gray) and execute:
4. Columbus.Inspect ~ (this opens the columbus object inspector).
5. Enter "Dir" in the "Name" field.
6. Enter "System.ChangeDirectory &Dir.Value" in the "Cmd" field.
7. Click on "Apply".

The text field will now execute the System.ChangeDirectory command
every time you change the directory displayed in it.  Copy the 
text field to your main .Tool text and store.

A more advanced exercise would be to create the textfield in
the System.Log menu bar.  (Hint: requires editing TextDocs.Lib).

> I think I can rewrite the
> V24.Mod to support all 4 comports but I can't read the docs to learn how
> to use the compiler.

This would not be necessary, since André has already done it.
It is in the latest Alpha version.

-- Pieter

--
Pieter Muller, Computer Systems Institute, ETH Zurich / MCT Lab, Zurich
Native Oberon OS: http://www.oberon.ethz.ch/native/