hsw12_gui.pm: fix focusFollowsMouse on aqua

workaround for Tcl::pTk 0.92: call Tcl command `tk_focusFollowsMouse` directly
hotwolf · Jun 24, 2018 · bfdfcf4 · bfdfcf4
1 parent 40a3a17
commit bfdfcf4
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/Perl/hsw12_gui.pm b/Perl/hsw12_gui.pm
@@ -202,6 +202,7 @@ use Data::Dumper;
 use IO::File;
 use Fcntl;
 use File::Basename;
+use Module::Loaded;
 
 ####################
 # global variables #
@@ -416,7 +417,13 @@ sub create_main_window {
 	#################
 	# set autofocus #
 	#################
-	$self->{gui}->{main}->focusFollowsMouse;
+	# Workaround for Tcl::pTk 0.92
+	if (is_loaded('Tcl::pTk')) {
+		$self->{gui}->{main}->interp->icall('tk_focusFollowsMouse');
+	}
+	else {
+		$self->{gui}->{main}->focusFollowsMouse;
+	}
 
 	###############
 	# set appname #