Playing with gridSelect

This commit is contained in:
Derek Taylor 2022-06-22 00:11:52 -05:00
parent 4c9681ab91
commit 1bdaf4c562
2 changed files with 2 additions and 2 deletions

View File

@ -251,7 +251,7 @@ spawnSelected' :: [(String, String)] -> X ()
spawnSelected' lst = gridselect conf lst >>= flip whenJust spawn
where conf = def
{ gs_cellheight = 40
, gs_cellwidth = 200
, gs_cellwidth = 180
, gs_cellpadding = 6
, gs_originFractX = 0.5
, gs_originFractY = 0.5

View File

@ -182,7 +182,7 @@ spawnSelected' :: [(String, String)] -> X ()
spawnSelected' lst = gridselect conf lst >>= flip whenJust spawn
where conf = def
{ gs_cellheight = 40
, gs_cellwidth = 200
, gs_cellwidth = 180
, gs_cellpadding = 6
, gs_originFractX = 0.5
, gs_originFractY = 0.5