TIP: Click on subject to list as thread! ANSI
echo: qedit
to: ALL
from: SAMMY MITCHELL
date: 1997-11-19 05:55:00
subject: RE: Rearrange TSE editing screen

From: Sammy Mitchell 
dBit AS[SMTP:dbit@sn.no] wrote:
> For a specific macro purpose, I would like to modify TSE normal editing 
> screen so that for example:
> 
> - The menu bar/statusline shows up at screen line 1 as before
> - Line 2-3 could be used for "own purposes" - (database column headers)
> - Normal editing data starts at screen line 4
> 
> It would like to solve it for both TSE 2.5 and 2.8...
> 
> Sorry for my english, it's easier to write error-free SAL-code!
Your English sounds pretty good to me!
Here is something I came up with - I hope it helps!
/**************************************************************************
  Demonstrates creating a 'reserved' area on the screen.
  This macro reserves lines 2..4 of the screen, for whatever you want to
  display there.
  The area will be reserved until:
  OneWindow, HWindow, or VWindows is called
  As written, this macro assumes:
  Statusline is at top
  menu is off
  displayboxed is off
  You must adjust the macro in order to change any of these settings
  The undocumented MakeEditWindow call is used.  Format is:
  MakeEditWindow(window_id, x1, y1, number_of_columns, number_of_rows)
  ClearEditorWindows() *must* be called first, then MakeEditorWindow for
  each window to be created, and finally, FinishEditWindows().
  See the state macro (state.s) for more details on using these functions.
  These are undocumented functions - no warranty - use with caution.
 **************************************************************************/
proc main()
    integer y
    ClearEditWindows()
    MakeEditWindow(1, 1, 5, Query(ScreenCols), Query(ScreenRows) - 4)
    FinishEditWindows()
    UpdateDisplay()
    Set(Attr, 7)
    for y = 2 to 4
        vGotoXY(1, y)
        ClrEol()
    endfor
end
-- 
Sammy Mitchell,  SemWare Corp.,  www.semware.com
---
---------------
* Origin: apana>>>>>fidonet [sawasdi.apana.org.au] (3:800/846.13)

SOURCE: echomail via exec-pc

Email questions or comments to sysop@ipingthereforeiam.com
All parts of this website painstakingly hand-crafted in the U.S.A.!
IPTIA BBS/MUD/Terminal/Game Server List, © 2025 IPTIA Consulting™.