diff --git a/csound-expression-typed.cabal b/csound-expression-typed.cabal
--- a/csound-expression-typed.cabal
+++ b/csound-expression-typed.cabal
@@ -1,5 +1,5 @@
 Name:          csound-expression-typed
-Version:       0.0.7.5
+Version:       0.0.7.6
 Cabal-Version: >= 1.6
 License:       BSD3
 License-file:  LICENSE
@@ -25,7 +25,7 @@
   Ghc-Options:    -Wall
   Build-Depends:
         base >= 4, base < 5, ghc-prim, containers, transformers >= 0.3, Boolean >= 0.1.0, colour >= 2.0, data-default, deepseq,
-        wl-pprint, stable-maps >= 0.0.3.3, csound-expression-dynamic >= 0.1.4.3, temporal-media >= 0.5.0
+        wl-pprint, stable-maps >= 0.0.3.3, csound-expression-dynamic >= 0.1.4.3, temporal-media >= 0.6.0
   Hs-Source-Dirs:      src/
   Exposed-Modules:
     Csound.Typed
diff --git a/src/Csound/Typed/Gui/Widget.hs b/src/Csound/Typed/Gui/Widget.hs
--- a/src/Csound/Typed/Gui/Widget.hs
+++ b/src/Csound/Typed/Gui/Widget.hs
@@ -6,14 +6,14 @@
     -- * Types
     Input, Output, Inner,
     noInput, noOutput, noInner,
-    Widget, widget, Source, source, Sink, sink, Display, display, SinkSource, sinkSource,
+    Widget, widget, Source, source, Sink, sink, Display, display, SinkSource, sinkSource, sourceSlice, sinkSlice,
     mapSource, mapGuiSource, mhor, mver, msca,
 
     -- * Widgets
     count, countSig, joy, knob, roller, slider, sliderBank, numeric, meter, box,
     button, butBank, butBankSig, butBank1, butBankSig1, toggle, toggleSig,
     setNumeric, 
-    setToggle, setToggleSig,
+    setToggle, setToggleSig, setKnob, setSlider,
     -- * Transformers
     setTitle,
     -- * Keyboard    
@@ -452,6 +452,12 @@
     let evtOuts a = outs =<< stepper 0 (fmap sig a)
     return (g, evtOuts, snaps ins)
 
+setKnob :: String -> ValSpan -> Double -> SinkSource Sig
+setKnob name sp v0 = setLabelSnkSource name $ singleInOut setVal' (Just v0) $ Knob sp
+
+setSlider :: String -> ValSpan -> Double -> SinkSource Sig
+setSlider name sp v0 = setLabelSnkSource name $ singleInOut setVal' (Just v0) $ Slider sp
+
 -------------------------------------------------------------
 -- keyboard
 
@@ -478,6 +484,10 @@
 printk2 :: GuiHandle -> Sig -> SE ()
 printk2 handle val = flPrintk2 val =<< refHandle handle
 
+setVal' :: GuiHandle -> Sig -> SE ()
+setVal' handle val = flSetVal 1 val =<< refHandle handle
+
+
 -------------------------------------------------------------
 -- set gui value
 
@@ -499,6 +509,11 @@
 changed = Sig . fmap f . mapM toGE
     where f = opcs "changed" [(Kr, repeat Kr)]
 
+-----------------------------------------------------
 
+sourceSlice :: SinkSource a -> Source a
+sourceSlice = fmap (\(gui, _, a) -> (gui, a))
 
+sinkSlice :: SinkSource a -> Sink a
+sinkSlice = fmap (\(gui, a, _) -> (gui, a))