27 lines
667 B
Mathematica
27 lines
667 B
Mathematica
XUTMTEP ;SEA/RDS - TaskMan: Toolkit, Edit Priority ; ;
|
|
;;8.0;KERNEL;;Jul 10, 1995
|
|
;
|
|
EDIT ;Edit task's priority
|
|
N DIR
|
|
S DIR(0)="NO^1:10"
|
|
S DIR("A")="PRIORITY"
|
|
I $P(ZTSK(0),U,15) S DIR("B")=$P(ZTSK(0),U,15)
|
|
S DIR("?")="^D HELP^XUTMTEP"
|
|
S DIR("??")="^D HELP2^XUTMTEP"
|
|
D ^DIR K DIR
|
|
I $D(DTOUT) W $C(7)
|
|
I $D(DIRUT) Q
|
|
S $P(ZTSK(0),U,15)=X
|
|
Q
|
|
;
|
|
HELP ;EDIT--? help for prompt
|
|
W !!?5,"Answer must be an integer between 1 and 10."
|
|
Q
|
|
;
|
|
HELP2 ;EDIT--?? help for prompt
|
|
W !!?5,"Answer will set the starting priority for the task."
|
|
W !?5,"Answer 10 to specify high priority, 1 for low, etc."
|
|
W !?5,"If no priority is specified, site default will be used."
|
|
Q
|
|
;
|