Change 16465: Allow focus of first item, MacPerl Bug #529102

Change 16465 by pudge@pudge-mobile on 2002/05/08 03:45:47

	Allow focus of first item, MacPerl Bug #529102

Affected files ...

.... //depot/macperl/macos/ext/Mac/Windows/Windows.pm#2 edit
.... //depot/maint-5.6/macperl/macos/ext/Mac/Windows/Windows.pm#4 edit

Differences ...

==== //depot/macperl/macos/ext/Mac/Windows/Windows.pm#2 (text) ====
Index: macperl/macos/ext/Mac/Windows/Windows.pm
--- macperl/macos/ext/Mac/Windows/Windows.pm#1~16123~	Tue Apr 23 18:25:17 2002
+++ macperl/macos/ext/Mac/Windows/Windows.pm	Tue May  7 20:45:47 2002
@@ -560,10 +560,9 @@
 sub has_focus {
 	my($my, $pane) = @_;
 
-	defined ${$my->{focusable}}[$my->{focus}] or return;
-	return ${$my->{focusable}}[$my->{focus}] == $pane
-		if $my->{focus} && $my->{focusable} &&
-		defined ${$my->{focusable}}[$my->{focus}];
+	return $my->{focusable}[ $my->{focus} ] == $pane
+		if defined $my->{focus} && $my->{focusable}
+		&& defined $my->{focusable}[ $my->{focus} ];
 }
 
 =item can_focus 

==== //depot/maint-5.6/macperl/macos/ext/Mac/Windows/Windows.pm#4 (text) ====
Index: macperl/macos/ext/Mac/Windows/Windows.pm
--- macperl/macos/ext/Mac/Windows/Windows.pm#3~12323~	Wed Oct  3 11:42:37 2001
+++ macperl/macos/ext/Mac/Windows/Windows.pm	Tue May  7 20:45:47 2002
@@ -560,10 +560,9 @@
 sub has_focus {
 	my($my, $pane) = @_;
 
-	defined ${$my->{focusable}}[$my->{focus}] or return;
-	return ${$my->{focusable}}[$my->{focus}] == $pane
-		if $my->{focus} && $my->{focusable} &&
-		defined ${$my->{focusable}}[$my->{focus}];
+	return $my->{focusable}[ $my->{focus} ] == $pane
+		if defined $my->{focus} && $my->{focusable}
+		&& defined $my->{focusable}[ $my->{focus} ];
 }
 
 =item can_focus 
End of Patch.