# mb.tcl -- setup moreButtons button widgets (class bindings)
#
# moreButtons : button widgets for Tk
# Copyright (C) 1993 Daniel Simmons, Michael Hewitt & Idaho State University
# For distribution terms see the file COPYING (GNU GPL)


# studbutton bindings
bind StudButton <Any-Enter> {tk_butEnter %W}
bind StudButton <Any-Leave> {tk_butLeave %W}
bind StudButton <1> {tk_butDown %W}
bind StudButton <ButtonRelease-1> {tk_butUp %W}

# tributton bindings
bind TriButton <Any-Enter> {tk_butEnter %W}
bind TriButton <Any-Leave> {tk_butLeave %W}
bind TriButton <1> {tk_butDown %W}
bind TriButton <ButtonRelease-1> {tk_butUp %W}

