Code: Select all
tv_getActiveTool
PARSE result theTool theProps
IF CMP(theTool,'tv_Pencil')==1
tv_pencil theProps
END
IF CMP(theTool,'tv_propelling')==1
tv_propelling theProps
END
etc...
Code: Select all
tv_getActiveTool
PARSE result theTool theProps
IF CMP(theTool,'tv_Pencil')==1
tv_pencil theProps
END
IF CMP(theTool,'tv_propelling')==1
tv_propelling theProps
END
etc...