diff --git a/.twander b/.twander index 46081af..2de4626 100644 --- a/.twander +++ b/.twander @@ -3,7 +3,7 @@ # section. Uncomment either the Unix or Win32 examples # as appropriate for your system. # -# $Id: .twander,v 1.35 2002/12/17 20:54:52 tundra Exp $ +# $Id: .twander,v 1.36 2002/12/18 20:07:15 tundra Exp $ @@ -72,7 +72,9 @@ # Scrolling Commands # # PGDN = # Move page down -# PGUP = # Move page up +# PGUP = # Move page up +# PGRT = # Move page right +# PGLFT = # Move page left # # Execute A Command # diff --git a/twander.py b/twander.py index 25aec4e..8f0d344 100755 --- a/twander.py +++ b/twander.py @@ -4,7 +4,7 @@ # For Updates See: http://www.tundraware.com/Software/twander PROGNAME = "twander" -RCSID = "$Id: twander.py,v 2.21 2002/12/18 19:39:41 tundra Exp $" +RCSID = "$Id: twander.py,v 2.22 2002/12/18 20:06:49 tundra Exp $" VERSION = RCSID.split()[2] @@ -83,6 +83,9 @@ PGDN = '' # Move page down PGUP = '' # Move page up +PGRT = '' # Move page right +PGLFT = '' # Move page left + # Execute Commands @@ -390,6 +393,8 @@ "SELTOP":SELTOP, "PGDN":PGDN, "PGUP":PGUP, + "PGRT":PGRT, + "PGLFT":PGLFT, "RUNCMD":RUNCMD, "SELKEY":SELKEY, "SELMOUSE":SELMOUSE @@ -802,7 +807,7 @@ # Bind handler for "Last Item" self.DirList.bind(self.KeyBindings["SELEND"], KeySelEnd) - # Intra-display movement + # Scrolling # Bind Handler for "Move Page Down self.DirList.bind(self.KeyBindings["PGDN"], KeyPageDown) @@ -810,6 +815,12 @@ # Bind Handler for "Move Page Up" self.DirList.bind(self.KeyBindings["PGUP"], KeyPageUp) + # Bind Handler for "Move Page Right" + self.DirList.bind(self.KeyBindings["PGRT"], KeyPageRight) + + # Bind Handler for "Move Page Up" + self.DirList.bind(self.KeyBindings["PGLFT"], KeyPageLeft) + # Execute commands @@ -1559,10 +1570,29 @@ def KeyPageUp(event): UI.DirList.yview_scroll(-1, "pages") - # End of 'KeyPageUp()' +##### +# Event Handler: Move Page Right +##### + +def KeyPageRight(event): + UI.DirList.xview_scroll(1, "pages") + +# End of 'KeyPageRight()' + + +##### +# Event Handler: Move Page Left +##### + +def KeyPageLeft(event): + UI.DirList.xview_scroll(-1, "pages") + +# End of 'KeyPageLeft()' + + #-------------- Handler Utility Functions -----------------#