Commit b7e8cf91 by Guerric Chupin

Tighter spacing.

parent 053d4fb0
......@@ -57,7 +57,7 @@ getButtons boardStatusRV = do
restartM <- stockLookupItem gtkMediaRestart
when (isJust restartM) $ do
stockAddItem [(fromJust restartM) { siLabel = "_Restart" }]
buttonBox <- vBoxNew False 10
buttonBox <- vBoxNew False 5
buttonBoxAddRmLayers <- hBoxNew True 10
boxPackStart buttonBox buttonBoxAddRmLayers PackNatural 0
......
......@@ -36,7 +36,7 @@ layerSettings isStartedRV = do
------------------------------------------------------------------------------
-- GUI Boxes
------------------------------------------------------------------------------
layerSettingsVBox <- vBoxNew True 10
layerSettingsVBox <- vBoxNew True 5
layerSettingsBox <- hBoxNew False 0
centerSettings <- alignmentNew 0.5 0.5 0 0
containerAdd layerSettingsBox centerSettings
......@@ -128,7 +128,7 @@ layerSettings isStartedRV = do
fromString ins
return (i, ind)) instrumentList
comboBoxSetActive instrumentCombo 0
boxPackStart layerSettingsVBox instrumentCombo PackNatural 10
boxPackStart layerSettingsVBox instrumentCombo PackNatural 0
-------------------------------------------------------------------------
-- RVs
-------------------------------------------------------------------------
......
......@@ -59,9 +59,9 @@ comboBoxIndexRV box = ReactiveFieldReadWrite setter getter notifier
noteSettingsBox :: IO (VBox, MCBMVar GUICell)
noteSettingsBox = do
pieceBox <- vBoxNew False 10
naBox <- vBoxNew False 10
boxPackStart pieceBox naBox PackNatural 10
pieceBox <- vBoxNew False 5
naBox <- vBoxNew False 5
boxPackStart pieceBox naBox PackNatural 0
-- Articulation box
artCombo <- comboBoxNewText
......@@ -69,7 +69,7 @@ noteSettingsBox = do
(fromString $ show art)
return (art,i)) [NoAccent ..]
comboBoxSetActive artCombo 0
boxPackStart naBox artCombo PackNatural 10
boxPackStart naBox artCombo PackNatural 0
let indexToArt i =
fromMaybe (error "In indexToArt: failed \
\to find the selected \
......@@ -87,7 +87,7 @@ noteSettingsBox = do
(fromString $ show sli)
return (sli,i)) [NoSlide ..]
comboBoxSetActive slideCombo 0
boxPackStart naBox slideCombo PackNatural 10
boxPackStart naBox slideCombo PackNatural 0
let indexToSlide i =
fromMaybe (error "In indexToSlide: failed \
\to find the correct slide \
......@@ -122,14 +122,14 @@ noteSettingsBox = do
comboBoxIndexRV noteDurCombo
noteDurLabel <- labelNew =<< (`lookup` symbolString) <$> reactiveValueRead noteDurRV
let noteDurLabelRV = labelTextReactive noteDurLabel
boxPackStart naBox noteDurBox PackNatural 10
boxPackStart noteDurBox noteDurCombo PackNatural 10
boxPackStart noteDurBox noteDurLabel PackNatural 10
boxPackStart naBox noteDurBox PackNatural 0
boxPackStart noteDurBox noteDurCombo PackNatural 0
boxPackStart noteDurBox noteDurLabel PackNatural 0
-- Repeat count box
rCountAdj <- adjustmentNew 1 0 100 1 1 0
rCount <- spinButtonNew rCountAdj 1 0
boxPackStart pieceBox rCount PackNatural 10
boxPackStart pieceBox rCount PackNatural 0
let rCountRV = spinButtonValueIntReactive rCount
-- Side RV
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment