From andrew.ferguson@bbs.multiline.com.auThu Apr  4 09:33:14 1996
Date: Thu, 04 Apr 96 13:31:54 
From: andrew.ferguson@bbs.multiline.com.au
To: aurora-editor@sfu.ca
Subject: new titlebar


Try the following modification to your window title bar.  It will give you
something like this:

C:\TEXT\PROGRAMS\AURORA\EXT.AML       1:27pm  4-04  96%  L:1 R:70 ---- 

showing the filename, time, date, position in file, margins, and whether
capslock is on (CAPS) or off (----).

Also, the title is automatically resized when you resize the window.

Add the following to EXT.AML under OBJECT EDIT:

    function  extrainf
      queue "extrainfo"
    end

    function  extrainfo
      tl = getbufname
      t2 = (pad (gettime) 8) + " " + getdate [1:5]
      t3 = pad ((getrow * 100) / (getlines) + '%') 5
      t4 = (pad (" L:" + _LMargin) 5) + (pad (" R:" + _RMargin) 5)
      t5 = if? (shiftkey? 40h) " CAPS" " ----"
      tr = (pad (t2 + t3 + t4 + t5) (getviewcols - (sizeof tl) - 2))
      settitle (tl + tr)
    end
                                               
Add the following to EXT.AML under FUNCTION ONENTRY:

    setrepeat 'extra' 100 '' "extrainf"

                                                                    
Cheers,
---------------------------------------- 
Andrew.Ferguson@bbs.multiline.com.au 
                  or 
Andrew.Ferguson@f254.n690.z3.fidonet.org 
----------------------------------------