TSE: Issue: About border characters

[knud van eeden]

Hello,

1. Note: Similar to this has been reported before by another user.

2. The border characters should thus possibly be configurable.

3. If (all) these (border) characters (e.g. around the menus, around the TSE windows, scrollbar, ...) are configurable, how to change those to other more convenient looking characters?

Thanks

with friendly greetings

Knud van Eeden

Example: If using the 'Perfect DOS VGA 437' font and borders on:

If using Courier New font and borders on:

[H P]

Knud,

If it's in windows you'want the lines you can use the following which I use to make a helpscreen with single borderline.

========================================================================

    Integer i_OrgHelpTextAttr                /** variable for orginal helptextattribute        */

    Integer i_OrgMenuborderAttr              /** variable for orginal menuborder attribute     */

    Integer i_PointSize

    Integer i_Flags

    String  s_FontName[32]      = ""

    GetFont(s_Fontname, i_PointSize, i_Flags)         /** get font pointsize amd oem   */

    If i_Flags == _NONE_

        SetFont(s_Fontname, i_PointSize, _FONT_OEM_)  /** if font oem is off then set it on */

    EndIf

    i_OrgHelpTextAttr   = Query(HelpTextAttr)    /** save original helptextattribute               */

    i_OrgMenuborderAttr = Query(MenuBorderAttr)  /** save original menuborderattribute             */

    Set(HelpTextAttr, 0xb0)                      /** set intense black on green helptextattribute  */

    Set(MenuBorderAttr, 0x0b)                    /** set bright green on black menuborderattribute */

    QuickHelp(LangAssignments)

    Set(HelpTextAttr, i_OrgHelpTextAttr)         /** set original helptextattribute back   */

    Set(MenuBorderAttr, i_OrgMenuborderAttr)     /** set original menuborderattribute back */

    SetFont(s_Fontname, i_PointSize, i_Flags)    /** set font back as it was before        */

========================================================================

It does however not work on a linux laptop with ubuntu.

Met vriendelijke groet,
With kind regards,

Muy atentamente,
Mit Freundliche Gruß,

Sinceramente,


H. Pikaar
Henri...@gmail.com

Op wo 25 jun 2025 om 22:30 schreef 'knud van eeden' via SemWare TSE Pro text editor <sem...@googlegroups.com>:

--

---
You received this message because you are subscribed to the Google Groups "SemWare TSE Pro text editor" group.
To unsubscribe from this group and stop receiving emails from it, send an email to semware+u...@googlegroups.com.
To view this discussion visit https://groups.google.com/d/msgid/semware/1145381102.2569993.1750883440860%40mail.yahoo.com.

[knud van eeden]

Henriques,

Thanks for that.

It does not do much in TSE for Microsoft Windows.

But the idea is certainly there,

that is use Set() and Query() to set certain

attributes.

So worked out further expected is that it might resolve the issue.

Regarding TSE for Linux, GetFont() and so on do thus not work.

One will see only 'Warning' when asking e.g. for the font name

using 'Warn()'.

with friendly greetings

Knud van Eeden

To view this discussion visit https://groups.google.com/d/msgid/semware/CAAR3jqGbOz1r%3Dx%3Dy7HOKt%3D3X-_%2BAPXsVhOJMVcKzQqQyuCE2rA%40mail.gmail.com.

[knud van eeden]

ChatGPT came up with this TSE program.

Now we know that everything in TSE g32.exe is thus a form of graphics canvas to write on,

this certainly is an interesting approach to work from, ChatGPT seems to know already that

TSE g32.exe is graphics ;-)

Prompt: 

> Can you write a The Semware Editor SAL program that changes the characters used to create the 

border of the window in which TSE runs. 

---

PROC Main()

  integer leftI   = 10

  integer top    = 5

  integer rightI  = 70

  integer bottom = 20

  integer i

  string ch_H[1]  = "-"  // horizontal

  string ch_V[1]  = "¦"  // vertical

  string ch_TL[1] = "+"  // top-leftI corner

  string ch_TR[1] = "+"  // top-rightI corner

  string ch_BL[1] = "+"  // bottom-leftI corner

  string ch_BR[1] = "+"  // bottom-rightI corner

  // Top and bottom horizontal lines

  FOR i = leftI + 1 TO rightI - 1

    GotoXY(i, top)

    PutChar(ch_H)

    GotoXY(i, bottom)

    PutChar(ch_H)

  ENDFOR

  // leftI and rightI vertical lines

  FOR i = top + 1 TO bottom - 1

    GotoXY(leftI, i)

    PutChar(ch_V)

    GotoXY(rightI, i)

    PutChar(ch_V)

  ENDFOR

  // Corners

  GotoXY(leftI, top)

  PutChar(ch_TL)

  GotoXY(rightI, top)

  PutChar(ch_TR)

  GotoXY(leftI, bottom)

  PutChar(ch_BL)

  GotoXY(rightI, bottom)

  PutChar(ch_BR)

  WaitForKeyPressed(0)

END

---

Just a matter of choosing the right dimensions and position of the border rectangle

and the start is there.

And it works in Linux WSL Ubuntu also out of the box (see screenshot).

[H P]

Knudde, 

I'm using courier new my chcp is 850 and with this I have a neat borderline and that is for setting oem.

Met vriendelijke groet,
With kind regards,

Muy atentamente,
Mit Freundliche Gruß,

Sinceramente,


H. Pikaar
Henri...@gmail.com

Op do 26 jun 2025, 01:52 schreef 'knud van eeden' via SemWare TSE Pro text editor <sem...@googlegroups.com>:

To view this discussion visit https://groups.google.com/d/msgid/semware/1659575220.2641838.1750895559289%40mail.yahoo.com.

[H P]

Knud,

Sorry I saw to late what my phone made of you're name.

Met vriendelijke groet,
With kind regards,

Muy atentamente,
Mit Freundliche Gruß,

Sinceramente,


H. Pikaar
Henri...@gmail.com

Op do 26 jun 2025, 02:27 schreef H P <henri...@gmail.com>:

[Carlo Hogeveen]

If your macro would use PutOEMStrXY() instead of PutChar(), then it would output code page 437-like characters and could thus do real line drawing.
Here you can find what code page 437's line drawing characters are:
https://ecarlo.nl/tse/files/CodePages.html#SideBySide

Carlo

[Knud van Eeden]

Yes, with Courier New it looks rather OK, but another user already pointed out if SemWare could not replace e.g. the '+/-' characters with something more smooth.

But you use a fond like 'Perfect DOS VGA 437' then you get really odd characters thus.

with friendly greetings

Knud van Eeden

To view this discussion visit https://groups.google.com/d/msgid/semware/CAAR3jqFy%3D3-2FiZ6EHZigXJ9Ze-2RtD5yVbmXKZpnSTNi3kR6w%40mail.gmail.com.

[Knud van Eeden]

Thanks.

In TSE Microsoft Windows OK,

in TSE Linux still the odd characters, but it works.

---

 PROC Main()

  integer leftI   = 10
  integer top    = 5
  integer rightI  = 70
  integer bottom = 20
  integer i

  string ch_H[1]  = "-"  // horizontal
  string ch_V[1]  = "¦"  // vertical
  string ch_TL[1] = "+"  // top-leftI corner
  string ch_TR[1] = "+"  // top-rightI corner
  string ch_BL[1] = "+"  // bottom-leftI corner
  string ch_BR[1] = "+"  // bottom-rightI corner

  // Top and bottom horizontal lines
  FOR i = leftI + 1 TO rightI - 1

    // GotoXY(i, top)
    PutOEMStrXY(i, top, ch_H)
    // GotoXY(i, bottom)
    PutOEMStrXY(i, bottom, ch_H)

  ENDFOR

  // leftI and rightI vertical lines
  FOR i = top + 1 TO bottom - 1

    // GotoXY(leftI, i)
    PutOEMStrXY(leftI, i, ch_V)
    // GotoXY(rightI, i)
    PutOEMStrXY(rightI, i, ch_V)
  ENDFOR

  // Corners
  // GotoXY(leftI, top)
  PutOEMStrXY(leftI, top, ch_TL)
  // GotoXY(rightI, top)
  PutOEMStrXY(rightI, top, ch_TR)
  // GotoXY(leftI, bottom)
  PutOEMStrXY(leftI, bottom, ch_BL)
  // GotoXY(rightI, bottom)
  PutOEMStrXY(rightI, bottom, ch_BR)

  WaitForKeyPressed(0)

 END

---

with friendly greetings

Knud van Eeden

--

---
You received this message because you are subscribed to the Google Groups "SemWare TSE Pro text editor" group.
To unsubscribe from this group and stop receiving emails from it, send an email to semware+u...@googlegroups.com.

To view this discussion visit https://groups.google.com/d/msgid/semware/001a01dbe672%24e90068e0%24bb013aa0%24%40ecarlo.nl.

[S.E. Mitchell]

Do any other fonts exhibit this problem?

I don't have Perfect DOS VGA, and even the author says you should not use it.

--

--

---
You received this message because you are subscribed to the Google Groups "SemWare TSE Pro text editor" group.
To unsubscribe from this group and stop receiving emails from it, send an email to semware+u...@googlegroups.com.

To view this discussion visit https://groups.google.com/d/msgid/semware/1145381102.2569993.1750883440860%40mail.yahoo.com.

[S.E. Mitchell]

Uh oh.  I went ahead and installed Perfect DOS VGA 437.ttf, but it works fine for me!

[knud van eeden]

well, e.g. default font Courier New shows these '+/-' characters in the vertical scrollbar on the right.

Not sure if that is intentional?

Sent from Yahoo Mail on Samsung Galaxy S24 Ultra / 1 terabyte / artificial intelligence

To view this discussion visit https://groups.google.com/d/msgid/semware/CA%2BgEvkbvvPj_U7Ft9WAjE6_%2BQj_Xn5yGC2M9rMzY5JTWKi8DHg%40mail.gmail.com.

[knud van eeden]

But is the border set to 'on'?

Sent from Yahoo Mail on Samsung Galaxy S24 Ultra / 1 terabyte / artificial intelligence

https://groups.google.com/d/msgid/semware/CA%2BgEvkb2W0GBvACSUJO93bX4PNv7k7egWg7mHafsZp_ob32_xA%40mail.gmail.com

.

[S.E. Mitchell]

Courier new font, scroll bars look ok to me:

To view this discussion visit https://groups.google.com/d/msgid/semware/1434284747.503070.1751119361635%40mail.yahoo.com.

[S.E. Mitchell]

Yes - shown using Perfect DOS VGA 437:

To view this discussion visit https://groups.google.com/d/msgid/semware/859742130.506730.1751119467001%40mail.yahoo.com.

[knud van eeden]

That is not what I see thus in  Courier New. I see the '+/-' characters always as far as I know now.

It can not be a codepage difference because I use now permanently and globally 437 which must be also the same as your Codepage (437).

So if you run

proc main()

 Warn( Query( CodePage ) )

end

it should also show 437.

Which version is shown here, I assume thus 4.50.6 which I can not run. 

So mine is always 4.50 official release. Maybe some change there, there was thus a user before who also made remarks about those border characters used.

It is thus always Linux WSL Ubuntu running on Microsoft Windows professional 10.

Further can one start wsl.exe inside: or tcc.exe, or cmd.exe, or powershell.exe or wt.exe.

For me it is basically always inside tcc.exe.

Sent from Yahoo Mail on Samsung Galaxy S24 Ultra / 1 terabyte / artificial intelligence

To view this discussion visit https://groups.google.com/d/msgid/semware/CA%2BgEvkaPkxva_m2Jd6EHwOEge4gaiCdv5F1LBZERAVnBhePTRQ%40mail.gmail.com.

[Knud van Eeden]

I tested it now with TSE Linux 4.50.6, but still the border issue.

So looking at your screenshot, that looks like some kind of miracle that you see no strange characters in the border when choosing 'Perfect DOS VGA 437'.

If so then you managed maybe to download a more 'perfect' font 'Perfect DOS VGA 437'?

Could you please inform where you downloaded that 'Perfect DOS VGA 437' in that case.

Thanks

To view this discussion visit https://groups.google.com/d/msgid/semware/CA%2BgEvkbfsA_GX3vevf-7E-K31s06Rm70Wbd7Wtd0sCpJpGPPQg%40mail.gmail.com.

[zhong zhao]

[knud van eeden]

1. That should thus be code page 437 for some font.

2. Is that font 'Perfect DOS VGA 437'?

3. If that font is 'Perfect DOS VGA 437' could you then send a download link?

4. If that font is 'Perfect DOS VGA 437' could you otherwise send that font installation file to me?

Thanks

with friendly greetings

Knud van Eeden

https://groups.google.com/d/msgid/semware/b2d3a73c-444f-41b1-8eb0-9f70d075cafan%40googlegroups.com

.

[knud van eeden]

That issue is resolved and the case can be closed.

The root cause was the font installation.

The font version used before was less complete.

[Claus Futtrup]

Dear TSE Users

I am curious to test the complete Perfect DOS VGA Font.

Please provide me with the download link for the complete font.

With kind regards,

Claus

To view this discussion visit https://groups.google.com/d/msgid/semware/1436037095.1512060.1751390818562%40mail.yahoo.com.

[knud van eeden]

So conclusion after extensive testing:

1. If TSE Linux using start wt.exe to start wsl.exe and e, then font Perfect DOS VGA 437 should work as expected. Use TSE Linux version 4.50.6 or higher. This goes for Microsoft Windows 10 Professional. In Microsoft Windows 11 it might work also with cmd.exe and or powershell.exe.

2. If TSE Microsoft Windows then the font Perfect DOS VGA 437 should work as expected. Use TSE for Microsoft Windows version 4.50.6 or higher.

3. Have your code page set to 437 (via Microsoft 'Locale' > 'English (United States)', a computer restart is mandatory. Note: In Microsoft Windows one can always use the font 'Terminal' also to do e.g. drawing as a workaround.

4. Have the correct font version of 'Perfect DOS VGA 437' downloaded and installed (open Microsoft 'Fonts Manager' and drop the unzipped font files on it)

from 

  https://dl.dafont.com/dl/?f=perfect_dos_vga_437

5. Note: Under some circumstances the font 'Perfect DOS VGA 437' might (still) show some odd characters, e.g. operating system dependent (Microsoft Windows 10 versus 11)

with friendly greetings

Knud van Eeden

To view this discussion visit https://groups.google.com/d/msgid/semware/e2be5a21-c04a-44aa-8c0d-3a254480d6ef%40gmail.com.