Return to %MEN.m CVS log

Up to [Coherent Logic Development] / freem / contrib

Annotation of freem/contrib/%MEN.m, revision 1.1.1.1

1.1       snw         1: %MEN(y) ; A.Trocha ; Menu (up/down/choice) [1999/01/31-21:25:56]
                      2:        ; $Source: /cvsroot-fuse/gump/FreeM/mlib/%MEN.m,v $
                      3:        ; $Revision: 1.2 $ $Date: 2000/02/18 15:13:41 $
                      4:        ; <y> row where to position menue
                      5:        ; inp> ^%UTILITY(%J,0..n) = choice
                      6:        ; inp> ^%UTILITY(%J)   = default choice'headline
                      7:        ; out> as function result chosen <i>
                      8:        ;       -1 if esc was pressed
                      9:        ;
                     10:        D ^%SYSDEV
                     11:        ;
                     12:        N i,max,df,len,len,cnt,dflt,key,pos,max,head
                     13:        S i=""
                     14:        ;
                     15:        ;---  get the largest choice
                     16:        F  S i=$O(^%UTILITY($J,i)) Q:i=""  D
                     17:        . S len=$L(^%UTILITY($J,i)),max=i
                     18:        . I len>+$G(maxlen) S maxlen=len
                     19:        S head=$P($G(^%UTILITY($J)),"'",2)
                     20:        I $L(head)>maxlen S maxlen=$L(head)
                     21:        ;
                     22:        ;--- get params to center
                     23:        S x=(80-maxlen+2)\2
                     24:        ;
                     25:        ;--- get default choice - if none is given use the first entry
                     26:        S dflt=+$G(^%UTILITY($J))
                     27:        ;
                     28:        ;--- output initial menu
                     29:        S i=""
                     30:        F  S i=$O(^%UTILITY($J,i)) Q:i=""  D ref(i,dflt)
                     31:        D c(x,y+1,$$z(head,maxlen+2))
                     32:        ;
                     33:        ;--- draw window
                     34:        X %GO
                     35:        D c(x-1,y,"l"_$TR($J("",maxlen+2)," ","q")_"k")
                     36:        D c(x-1,y+1,"x"),c(x+maxlen+2,y+1,"x")
                     37:        F i=0:1:max+1 D c(x-1,y+i+2,"x"),c(x+maxlen+2,y+i+2,"x")
                     38:        D c(x-1,y+2,"t"_$TR($J("",maxlen+2)," ","q")_"u")
                     39:        D c(x-1,y+max+4,"m"_$TR($J("",maxlen+2)," ","q")_"j")
                     40:        X %GF
                     41:        ;
                     42:        ;---
                     43:        S pos=dflt
                     44:        W $C(27,91,63,50,53,108) ; turn off cursor
                     45: loop   S key=$$^%KEY("",1)
                     46:        I key="UP" I pos>0 D ref(pos,-1) S pos=pos-1 D ref(pos,pos) G loop
                     47:        I key="DOWN" I pos<max D ref(pos,-1) S pos=pos+1 D ref(pos,pos) G loop
                     48:        I key="CR",$TR($G(^%UTILITY($J,pos))," ")'="" G end
                     49:        I key="ESC" S pos=-1 G end
                     50:        G loop
                     51:        ;
                     52: ref(rel,akt)   ;
                     53:        N df
                     54:        S df=$S(akt=rel:">",1:" ")
                     55:        D c(x,y+rel+3,df_$$z(^%UTILITY($J,rel),maxlen)_$TR(df,">","<"))
                     56:        Q
                     57:        ;
                     58: end    ;
                     59:        W $C(27,91,63,50,53,104) ; turn  cursor back on
                     60:        Q pos
                     61:        
                     62: c(x,y,t) W *27,*91,y,";",x,"H"_$G(t) Q
                     63: z(txt,len) ;
                     64:        N l,add
                     65:        S l=(len-$L($E(txt,1,len)))\2
                     66:        S add=len-(l*2+$L($E(txt,1,len)))
                     67:        Q $J("",l+add)_$E(txt,1,len)_$J("",l)