[Perl-win32-gui-cvscommit] Win32-GUI/scripts win32-gui-demos.pl, 1.3, 1.4

[Robert M. <rob...@us...>]

Update of /cvsroot/perl-win32-gui/Win32-GUI/scripts
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28090/scripts

Modified Files:
	win32-gui-demos.pl 
Log Message:
Add Keyboard Navigation

Index: win32-gui-demos.pl
===================================================================
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/scripts/win32-gui-demos.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** win32-gui-demos.pl	16 Jul 2006 11:09:33 -0000	1.3
--- win32-gui-demos.pl	30 Aug 2006 21:59:31 -0000	1.4
***************
*** 96,99 ****
--- 96,100 ----
      -pushstyle => WS_CLIPCHILDREN,  # avoid flicker on resize
      -onResize  => \&mwResize,
+     -dialogui  => 1,
  ) or die "MainWindow";
  
***************
*** 122,125 ****
--- 123,127 ----
      #-onMouseDown     => \&tvClick,
      -onMouseDblClick => \&tvDoubleClick,
+     -tabstop         => 1,
  ) or die "Treeview";
  ## Hook for getting notification when <RETURN> key is pressed
***************
*** 147,150 ****
--- 149,153 ----
      -top      => 10,
      -onClick  => \&runCurrent,
+     -tabstop  => 1,
  ) or die "Button";
  $mw->BUT->Left($mw->ScaleWidth()-10-$mw->BUT->Width());
***************
*** 161,164 ****
--- 164,168 ----
      -readonly   => 1,
      -addexstyle => WS_EX_CLIENTEDGE,
+     -tabstop    => 1,
  ) or die "Editor";