<?xml version="1.0"?>
<button backcol="none" display="both" label_pos="right" textcol="none">
<label>test GetModifiers</label>
<icon1>#newcommand</icon1>
<function type="script">
<instruction />
<instruction>@nodeselect</instruction>
<instruction>@script VBScript</instruction>
<instruction>Option Explicit</instruction>
<instruction>Function OnClick(ByRef clickData)</instruction>
<instruction> DOpus.ClearOutput</instruction>
<instruction> Dim cmd, mm, m</instruction>
<instruction> ' ---------------------------------------------------------</instruction>
<instruction> Set cmd = clickData.func.command</instruction>
<instruction> Set mm = cmd.GetModifiers</instruction>
<instruction> dopus.output mm.count</instruction>
<instruction> for each m in mm</instruction>
<instruction> dopus.ouotput m & " = " & mm(m)</instruction>
<instruction> next</instruction>
<instruction> 'cmd.deselect = false ' Prevent automatic deselection</instruction>
<instruction> DOpus.Output "@nodeselect = " & mm("@nodeselect") </instruction>
<instruction>End Function</instruction>
</function>
</button>
error: 'mm' (0x800a0009)