                 when /^[Hh]/.test token
                   createElement Button,
                     bsStyle: "link"
-                    onWheel: @tuneHour
+                    onWheel: @wheelHour
                     datetime.format token
                 when /^m/.test token
                   createElement Button,
                     bsStyle: "link"
-                    onWheel: @tuneMin
+                    onWheel: @wheelMin
                     datetime.format token
                 when /^s/.test token
                   createElement Button,
                     bsStyle: "link"
-                    onWheel: @tuneSec
+                    onWheel: @wheelSec
                     datetime.format token
                 when /^[aA]/.test token
                   createElement Button,

    
  nextMon: -> @modifyValue -> @add 1, "M"

  tuneMon: (e)-> @tune e, "M", -1

  tuneYear: (e)-> @tune e, "Y", -1
  
  pickDate: (date)-> =>
    @modifyValue -> @date date

              textAlign: "center"
            createElement Button,
              bsStyle: "link"
              onWheel: @wheelYear
              onClick: onClickYear
              datetime.format "YYYY"
          th
