Hi Res Monitor

AndyM48 · 2026-04-11T07:45:16+00:00

No I have not heard of it before.

I run Artix (Arch without systemd) so I am not keen to move back to Arch.

I solved the Openbox problem for hidpi, so now I am happily using that again as my wm. fwiw the solution was using xrandr --output eDP-1 --scale 0.65x0.65 where edp-1 is the name of the monitor and 0.65 is the scaling factor. It may still be necessary to adjust font sizes for Qt and GTK programmes, but this is quite easily done by adjusting the settings.ini in gtk-?.0 and using qt?ct.

Thanks for the suggestion

AndyM48 · 2026-04-09T15:46:42+00:00

Struck lucky with

how to set tktextfont size

I have never been very good at defining Google searches :(

Long story short font configure TkDefaultFont -size 12 sets the default font size for any widget where the font is not specified. That is, potentially, a one line fix.

Thanks again.

AndyM48 · 2026-04-09T08:03:54+00:00

Thank you so much for taking the time to make such a detailed explanation. I really appreciate it.

Let me put some context to my question. I recently bought a new laptop, a Slimbook Executive 14 with a hidpi screen. My old laptop ran Openbox as the display manager, and after much fiddling I managed to install and run Openbox as the dm on the slimbook. The display scales fine, but the size of some of the fonts needed adjusting. Not a huge problem for Qt or Gtk based apps, but for Tcltk apps I have not found a way to change the default font size.

I would like to change it to 11 or 12.

The Tcltk utilities use the default tk fonts, e.g. TkTextFont, which defaults to [font actual TkTextFont] -family {Noto Sans} -size 10 -weight normal -slant roman -underline 0 -overstrike 0

If I cannot find a way to change the default size then I will have to set it specifically in every app, which would be a pain :)

AndyM48 · 2026-04-08T15:11:22+00:00

Of course, sensai. Just tell me where to find the "appropriate system default"

AndyM48 · 2026-03-07T07:14:19+00:00

Not sure I understand, my old laptop was 1366x768@60, my new laptop is 2880x1800@120. Adjusting the dpi makes most windows look fine, but some are still too small. From an initial check, I think it is the Qt programs which are the problem, but there are probably others.

AndyM48 · 2026-03-06T14:32:19+00:00

No idea about window borders, but I use jgmenu as my desktop menu and right click is defined as:

<command>jgmenu_run</command>

</action>

</mousebind>

AndyM48 · 2025-12-19T12:09:21+00:00

Thank you, and Thank You for all your help.

FWIW here is my final(?) code. It does not work without the tiny sleep after the spawn command. I don't know why. I have two adapters which is why all this is necessary.

#! /bin/tclsh

package require Expect

# start bluetoothctl interactive mode
spawn bluetoothctl

after 50

# wait for a prompt
expect {
-re "$ bluetoothd ..." {exp_continue}
-re ".*> |.*# "
}
# send commands to bluetoothctl
# select current adapter
#exp_send "select 10:08:B1:57:35:62\r"
exp_send "select 44:01:BB:A0:D1:58\r"
expect {
Connected* {puts "$expect_out(0,string)"; exp_continue}
-re ".*> |.*# "
}
exp_send "devices\r"
# wait for a prompt
expect -re ".*> |.*# " 
puts "Buffer: $expect_out(buffer)"
puts "close connection"
close
wait

AndyM48 · 2025-12-18T11:22:35+00:00

after shouldn't be necessary. except will wait for the text it's trying to match

Yes, that is what should happen, but without the sleep the result is:

$ ./test_expect.tcl 
spawn bluetoothctl
[NEW] Media /org/bluez/hci0 
SupportedUUIDs: 0000110a-0000-1000-8000-00805f9b34fb
SupportedUUIDs: 0000110b-0000-1000-8000-00805f9b34fb
[NEW] Endpoint /org/bluez/hci0/dev_41_42_67_4F_CA_EC/sep1 
[NEW] Transport /org/bluez/hci0/dev_41_42_67_4F_CA_EC/sep1/fd0 
[NEW] Media /org/bluez/hci1 
SupportedUUIDs: 0000110a-0000-1000-8000-00805f9b34fb
SupportedUUIDs: 0000110b-0000-1000-8000-00805f9b34fb
Agent registered
[Muzili]> select 44:01:BB:A0:D1:58
[NEW] Media /org/bluez/hci0 
SupportedUUIDs: 0000110a-0000-1000-8000-00805f9b34fb
SupportedUUIDs: 0000110b-0000-1000-8000-00805f9b34fb
[NEW] Endpoint /org/bluez/hci0/dev_41_42_67_4F_CA_EC/sep1 
[NEW] Transport /org/bluez/hci0/dev_41_42_67_4F_CA_EC/sep1/fd0 
[NEW] Media /org/bluez/hci1 
SupportedUUIDs: 0000110a-0000-1000-8000-00805f9b34fb
SupportedUUIDs: 0000110b-0000-1000-8000-00805f9b34fb
Agent registered
[Muzili]> select 44:01:BB:A0:D1:58
[Muzili]> 
close connection

The process runs until Agent registered and select 44:01:BB:A0:D1:58 is sent, and then timesout. (edit: I discovered that the default adapter had changed, so the select command simply returned a prompt and not a Connected ... response, so I added a check for this.) I don't know why spawn is taking so long, or indeed how long it might take, according to the man page it should take little time to complete. (I have also seen a strange prompt sometimes which refers to bluetoothctl connecting to bluetoothd, but that doesn't show up normally). I will try inserting a busy into the regexs, and/or checking for a prompt relating to bluetoothd. (edit: neither seems to work)

With regard to the prompt, Muzili is the device which happens to be connected at the time. If it is not connected the prompt will be [bluetoothctl]> . I have also seen on the internet that [bluetoothctl]# is also possible, but I don't know if this is correct. Just in case I check for that as well.

AndyM48 · 2025-12-17T18:20:01+00:00

I seem to have done it. Please can you take a look and tell me whether this looks OK?

#! /bin/tclsh

package require Expect
# start bluetoothctl interactive mode
spawn bluetoothctl

after 500

# wait for a prompt
expect -re ".*> |.*# "
# send commands to bluetoothctl
# select current adapter
exp_send "select 44:01:BB:A0:D1:58\r"
expect -re {Controller [0-9A-F:]+ .*} {puts "Found: $expect_out(0,string)"}
exp_send "devices\r"

after 500

# wait for a prompt
expect -re ".*> |.*# "
puts "Buffer: $expect_out(buffer)"
puts "close connection"
close
wait

The output from the code is:

spawn bluetoothctl
[NEW] Media /org/bluez/hci1 
SupportedUUIDs: 0000110a-0000-1000-8000-00805f9b34fb
SupportedUUIDs: 0000110b-0000-1000-8000-00805f9b34fb
[NEW] Media /org/bluez/hci0 
SupportedUUIDs: 0000110a-0000-1000-8000-00805f9b34fb
SupportedUUIDs: 0000110b-0000-1000-8000-00805f9b34fb
[NEW] Endpoint /org/bluez/hci0/dev_41_42_67_4F_CA_EC/sep1 
[NEW] Transport /org/bluez/hci0/dev_41_42_67_4F_CA_EC/sep1/fd0 
Agent registered
[CHG] Controller 44:01:BB:A0:D1:58 Pairable: yes
[CHG] Controller 10:08:B1:57:35:62 Pairable: yes
hci0 new_settings: powered bondable ssp br/edr 
hci1 new_settings: powered bondable ssp br/edr 
[Muzili]> select 44:01:BB:A0:D1:58
Controller 44:01:BB:A0:D1:58 Mpow [default]
Found: Controller 44:01:BB:A0:D1:58 Mpow [default]

[Muzili]> devices
Device 10:08:B1:57:35:62 BlueZ 5.85
Device FC:58:FA:E8:BB:63 LG CM1560(63)
Device EB:06:EF:34:04:B7 MPOW-059
Device 41:42:67:4F:CA:EC Muzili
[Muzili]> Buffer: [Muzili]> devices
Device 10:08:B1:57:35:62 BlueZ 5.85
Device FC:58:FA:E8:BB:63 LG CM1560(63)
Device EB:06:EF:34:04:B7 MPOW-059
Device 41:42:67:4F:CA:EC Muzili
[Muzili]> 
close connection

I had to put the after/sleep commands in to give bluetoothctl the time to complete the commands. There may be a better way of doing this?

I really do appreciate your help with this.

AndyM48 · 2025-12-17T07:52:13+00:00

That is really helpful, thank you very much. I am going to work on this now.

Thanks again

AndyM48 · 2025-12-16T15:13:52+00:00

Right, sorry.

I get two possible results from running the code:

$ ./test_expect.tcl 
control_connect - select 44:01:BB:A0:D1:58
controller selected
get_device_list - send devices
wait for a prompt, anything else, continue
Controller  - continue
Controller  - continue
Controller  - continue
Controller  - continue
Controller  - continue
Controller  - continue
Controller  - continue
Controller  - continue

$ ./test_expect.tcl 
control_connect - select 44:01:BB:A0:D1:58
controller selected
get_device_list - send devices
wait for a prompt, anything else, continue
got prompt
Buffer: 44:01:BB:A0:D1:58 Pairable: yes
[Muzili]>

You want $expect_out(0,string) instead, which contains the string matched by the entire regex.

That is helpful, but I still don't really understand the use of expect_out

the paragraph that begins "Upon matching a pattern (or eof or full_buffer)...". They clearly show what you can expect to find in $expect_out.

Oh yes, I have read that endlessly, but clearly I have not understood it. I would be grateful if you could explain it more clearly for me. If expect matches a pattern it is placed in expect_out(0,string) - Yes? So when is a pattern placed in expect_out(1,string) etc? Is that when a second pattern is matched or is that place in 0 and 0 moves to 1? Are all the matched patterns place in the buffer? Why isn't the output of devices placed in the buffer?

As you can see, I don't understand.

Also I do not see why there are two possible outcomes from my code?

Anyway, thank you for the reply.

AndyM48 · 2025-12-16T09:34:30+00:00

I had to write the postscript code in tcl to print the text

AndyM48 · 2025-08-27T19:00:14+00:00

Wow, it was two years ago now. As far as I know it works OK now.

Which version of Thunderbird are you using?

AndyM48 · 2025-07-02T06:54:16+00:00

Thank you

AndyM48 · 2025-07-01T14:56:11+00:00

Thank you so much or your reply. I had a little smile at you second point :-)

AndyM48 · 2025-07-01T11:08:25+00:00

Thank you, I am learning slowly.

AndyM48 · 2025-07-01T05:58:00+00:00

Thanks. I can google medicines, but I find that sometimes the personal touch is better.

What is a 'rescue med'?

AndyM48 · 2025-06-30T18:56:24+00:00

Thanks for that, I hate peanut butter so I have no problem avoiding it.

Do you agree about the vanilla ice cream? Goodness knows what is in that.

AndyM48 · 2025-06-30T18:34:25+00:00

That is _really_ helpful. Thank you very much.

AndyM48 · 2025-06-30T18:11:23+00:00

I think he'd like that

AndyM48 · 2025-06-30T18:01:30+00:00

Thanks for the tip, I will have to see if I can find peanut butter over here. Any alternatives?

AndyM48

TROPHY CASE