\ skinstructs


needs struct

\ Each skin has two views: one
\ for normal display and one to 
\ accomodate a virtual video
\ screen.

struct
    \ pointer to normal view
    1 cells field skin.normal 
    \ pointer to video view
    1 cells field skin.video 
end-struct Skin:

\ A single global variable indicates
\ whether the current view is video
\ or normal, and is offset which can
\ be added to the value of 
\ current-skin to return the current
\ view.  Current-skin is a global
\ variable that holds a pointer to
\ the currently selected skin.

variable current-skin
variable view-offset

\ Each view needs identifiers for 
\ various bitmaps and gadgets,
\ and vectors for an event handler, 
\ display initialization and display 
\ updating. Display initialization 
\ does stuff like paint the toggle 
\ switches in the correct current 
\ state.

struct
    1 cells field view.v-init
    1 cells field view.v-event
    2 cells field view.pos-q
    2 cells field view.pos-hidigit
    2 cells field view.pos-lodigit
    1 cells field view.id-form
    1 cells field view.id-qoff
    1 cells field view.id-qon
    1 cells field view.id-digit0
    1 cells field view.mom-ikey
end-struct View:


