Return to %MEN.m CVS log

Up to [Coherent Logic Development] / freem / contrib

Annotation of freem/contrib/%MEN.m, revision 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)