/[gzz]/gzz/gfx/util/demokeys.py
ViewVC logotype

Diff of /gzz/gfx/util/demokeys.py

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by tjl, Thu Dec 19 23:05:46 2002 UTC revision 1.4 by tjl, Fri Dec 20 16:00:21 2002 UTC
# Line 100  class Toggle(_Presses): Line 100  class Toggle(_Presses):
100      def toggle(self, scene, key):      def toggle(self, scene, key):
101          setattr(scene, self.attr, 1 - getattr(scene, self.attr))          setattr(scene, self.attr, 1 - getattr(scene, self.attr))
102    
103    class ListIndex(_Presses):
104        """A key or a pair of keys used to move on a list of alternatives.
105        """
106        def __init__(self, attr, list, default, description, keydown, keyup, **opts):
107            _Presses.__init__(self, opts,
108                (keydown , lambda *args: self.move(-1, *args)),
109                (keyup , lambda *args: self.move(1, *args)),
110                )
111            self.attr = attr
112            self.list = list
113            self.default = default
114            self.descline = self.keyStrings() + ": Select " + description
115    
116        def prepare(self, scene):
117            setattr(scene, self.attr, self.default)
118    
119        def move(self, dir, scene, key):
120            v = getattr(scene, self.attr)
121            v += dir
122            v = v % len(self.list)
123            setattr(scene, self.attr, v)
124    
125    
126  class SlideLog(_Presses):  class SlideLog(_Presses):
127      """A pair of keys used to move a log slider up&down.      """A pair of keys used to move a log slider up&down.
128      """      """
# Line 121  class SlideLog(_Presses): Line 144  class SlideLog(_Presses):
144              v *= 1.1              v *= 1.1
145          else:          else:
146              v /= 1.1              v /= 1.1
147            print "SlideLog: ",v
148          setattr(scene, self.attr, v)          setattr(scene, self.attr, v)
149    
150    
151    
152    

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26