note description: "Summary description for {EV_CUSTOM_GRID_ITEM}." author: "" date: "$Date$" revision: "$Revision$" class EV_CUSTOM_GRID_ITEM inherit EV_GRID_LABEL_ITEM create make feature make (a_grid: EV_CUSTOM_GRID; a_text: STRING) do grid := a_grid default_create set_text (a_text) pointer_button_press_actions.extend (agent grid.mouse_item_click (?,?,?,?,?,?,?,?, Current)) end grid: EV_CUSTOM_GRID end