diff options
| -rw-r--r-- | lib/transition.fnl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lib/transition.fnl b/lib/transition.fnl index e48411d..137789a 100644 --- a/lib/transition.fnl +++ b/lib/transition.fnl @@ -96,8 +96,10 @@ (if (and (. boxes self.type) (> self.tab 0)) ((. boxes self.type self.tab :action) self) (set self.transition true))) - (when (and (= key :tab) (. boxes self.type)) + (when (and (or (= key :tab) (= key :right)) (. boxes self.type)) (set self.tab (+ (% self.tab (length (. boxes self.type))) 1))) + (when (and (= key :left) (. boxes self.type)) + (set self.tab (+ (% (- self.tab 2) (length (. boxes self.type))) 1))) ) (fn mousepressed [self x y button] |