<@doc alias="note" hierarchy="GMLDOM"> A descriptive annotation that has not semantic meaning in the model. (c) SAP AG 2003-2006. All rights reserved. #INCLUDE[svg:defs.inc] /////////////////////////////////////////////////////////////////////// // CLASS HEADER Class Note inherit Element; metadata title = '#TEXT[XTIT_NOTE]'; metadata descr = '#TEXT[XTOL_NOTE]'; metadata icon16 = '#URL[~res:skins.neutral.symbols.note16.gif]'; metadata icon32 = '#URL[~res:skins.neutral.symbols.note32.gif]'; attach svg:Textbox; /////////////////////////////////////////////////////////////////////// // METHODS /////////////////////////////////////////////////////////////////////// // EVENT LISTENERS listen onDrawingAction for core.gml:Note if (detail & #[SVG_ACTIVATE]) { setTimeout("SIGNAL('EDIT_RENAME');",100); }; end listen onShapeMenu for core.gml:Note menu.append({button:'EDIT_PROPERTIES'}); menu.append({button:'EDIT_RENAME', text:'Edit text'}); menu.append(); //[DIS_CPUR]menu.append({button:'EDIT_CUT'}); //[DIS_CPUR]menu.append({button:'EDIT_COPY'}); //[DIS_CPUR]menu.append({button:'EDIT_PASTE', signal:'BOARD->paste({x:'+pos.x+',y:'+pos.y+'})'}); //[DIS_CPUR]menu.append(); menu.append({button:'EDIT_DELETE'}); end