13 lines
349 B
Plaintext
13 lines
349 B
Plaintext
o<change_min> sub
|
|
(debug, change_min: loaded tool=#<current_tool> selected_pocket=#<selected_pocket>)
|
|
|
|
; show aborting a change on tool 2 by returning a negative value
|
|
; o100 if [#<tool> EQ 2]
|
|
; o100 return [-1]
|
|
; o100 endif
|
|
|
|
; succeed by returning a positive value
|
|
; which will inspected by the epilog handler
|
|
o<change_min> endsub [1]
|
|
m2
|