Hi, Am 11.02.2009 um 23:08 schrieb what-a-guy:
How would I code the following in clojure?
JTable table = new JTable(new MyTableModel()) {
...
//Implement table header tool tips.
protected JTableHeader createDefaultTableHeader() {
return new JTableHeader(columnModel) {
public String getToolTipText(MouseEvent e) {
String tip = null;
java.awt.Point p = e.getPoint();
int index = columnModel.getColumnIndexAtX(p.x);
int realIndex =
columnModel.getColumn(index).getModelIndex();
return columnToolTips[realIndex];
}
};
}
};
I'm not sure about the Java notation. So this may
be completely wrong. I'm also assuming, that
column-model and such things are defined somewhere
around this snippet.
(proxy [JTable] [(MyTableModel.)]
(createDefaultTableHeader
[]
(proxy [JTableHeader] [column-model]
(getToolTipText
[evt]
(let [p (.getPoint evt)
index (.getColumnIndexAtX column-model (.x p))
real-index (-> columnModel
(.getColumn index)
.getModelIndex)]
(nth column-tool-tips real-index))))))
Sincerely
Meikel
smime.p7s
Description: S/MIME cryptographic signature
