\ skinclassic

needs ids
needs mombutton
needs skinstructs
needs skins

needs skinclassictgls

decimal

Momentary: classicv-ikey
1315 classicv-ikey mom.upbmp-id !
1316 classicv-ikey mom.downbmp-id !
1016 classicv-ikey mom.gadget-id !

View: classicv
104 143 classicv view.pos-q 2!
119 150 classicv view.pos-lodigit 2!
119 142 classicv view.pos-hidigit 2!
2101 classicv view.id-form !
1300 classicv view.id-qoff !
1301 classicv view.id-qon !
1560 classicv view.id-digit0 !

: classicv-init  ( -- )
    ['] init-classic-toggles
    classicv view.v-init !
    \ store ptr to momentary button
    \ struct in the classicv view
    classicv-ikey classicv 
    view.mom-ikey !
    ['] do-classic-toggles
    classicv view.v-event ! ;

Momentary: classicn-ikey
1315 classicn-ikey mom.upbmp-id !
1316 classicn-ikey mom.downbmp-id !
1016 classicn-ikey mom.gadget-id !

View: classicn
10 76 classicn view.pos-q 2!
33 83 classicn view.pos-lodigit 2!
33 60 classicn view.pos-hidigit 2!
2100 classicn view.id-form !
1300 classicn view.id-qoff !
1301 classicn view.id-qon !
1660 classicn view.id-digit0 !

: classicn-init  ( -- )
    ['] init-classic-toggles
    classicn view.v-init !
    \ store ptr to momentary button
    \ struct in the classicn view
    classicn-ikey classicn
    view.mom-ikey !
    ['] do-classic-toggles 
    classicn view.v-event ! ;

: classic-skin-init  ( -- )
    classicn-init   classicv-init ;

Skin: classic
classicn classic skin>normal !
classicv classic skin>video !

