amassivus/clusterssh
1
0
Fork 0
mirror of https://github.com/duncs/clusterssh.git synced 2025-07-03 01:43:25 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Merge pull request #149 from GerMalaz/4k_displays_bigger_menu

Browse source 
Bigger menu for 4k (or bigger) displays
This commit is contained in:
Duncan Ferguson 2023-06-11 11:40:59 +01:00 • committed by GitHub
commit b302a7724f
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 6 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lib/App/ClusterSSH/Window/Tk.pm
View file

@ -1276,10 +1276,16 @@ sub setup_repeat() {
sub create_windows() { sub create_windows() {
my ($self) = @_; my ($self) = @_;
my ($screen_height) = $xdisplay->{height_in_pixels};
my ($screen_width) = $xdisplay->{width_in_pixels};
$self->debug( 2, "create_windows: started" ); $self->debug( 2, "create_windows: started" );
$windows{main_window} $windows{main_window}
= MainWindow->new( -title => "ClusterSSH", -class => 'cssh', ); = MainWindow->new( -title => "ClusterSSH", -class => 'cssh', );
if ($screen_height * $screen_width >= 8294400) # display 4k or bigger
{
$windows{main_window}->optionAdd('*font', 'Nimbus 14'); # better for 4k displays
}
$windows{main_window}->withdraw; # leave withdrawn until needed $windows{main_window}->withdraw; # leave withdrawn until needed
if ( defined( $self->config->{console_position} ) if ( defined( $self->config->{console_position} )