adam@1783: val show_mouseButton = mkShow (fn b => case b of adam@1783: Left => "Left" adam@1783: | Middle => "Middle" adam@1783: | Right => "Right") adam@1783: adam@1783: fun main () : transaction page = return adam@1783: