User:Kevin Reid/scribble.e-awt

pragma.syntax("0.9") currentVat.morphInto("awt") def makeEPainter :=  def catching(inner) { def catcher { match msg { try { E.callWithPair(inner, msg) } catch p { stderr.println(`$p${p.eStack}`) null }     }    }    return catcher } def makeScribbleComponent(model) { var x := 0 var y := 0 def scribbleC := makeEPainter(catching(def painter { to paintComponent(g) { for line :Tuple[int, int, int, int] in model { E.call(g, "drawLine", line) }     }    }))    scribbleC.addMouseListener(catching(def ml { to mousePressed(event) { x := event.getX y := event.getY }     match _ {} }))   scribbleC.addMouseMotionListener(catching(def mml { to mouseDragged(event) { model.push([x, y,                   x := event.getX,                    y := event.getY]) scribbleC.repaint }     match _ {} }))   scribbleC.setPreferredSize((300, 300)) return scribbleC } def lines := [].diverge def done def frame := ("Scribble") frame.setContentPane(makeScribbleComponent(lines)) frame.addWindowListener(catching(def mainWindowListener { to windowClosing(event) :void { bind done := null }   match _ {} })) frame.setLocation(50, 50) frame.pack frame.show interp.waitAtTop(done)
 * 1) !/usr/bin/env rune
 * 1) Demo of custom drawing and event handling in an E/AWT program.
 * 1) --- init
 * 1) --- definitions
 * 1) --- application