Make buttons without labels inactive

2021-03-08 17:03:58 +01:00
parent 70f8914767
commit 9f58066dba
4 changed files with 52 additions and 89 deletions
@@ -63,7 +63,8 @@ main = do
                      blendFunc $= (SrcAlpha,OneMinusSrcAlpha)
                      renderTree (_renderData preData) (_cameraRot w) (_cameraZoom w) (_cameraPos w)
                                            (_windowX w,_windowY w) 
-                                            (picToLTree (Just 1) $ fixedCoordPictures w)
+                                            --(picToLTree (Just 1) $ fixedCoordPictures w)
+                                            (picToLTree Nothing $ fixedCoordPictures w)
                      endRenderTicks <- SDL.ticks
                      playSoundQueue (_soundData preData) (_soundQueue w)
                      newSoundData <- playAndUpdate (_sounds w) (_soundData preData)