align visibility/locked buttons to end

This commit is contained in:
sheaf 2024-11-03 11:51:41 +01:00
parent 237fb4a7d7
commit 74a8ad3f80

View file

@ -349,12 +349,15 @@ newLayerViewWidget = do
itemLabel <- editableLabelNew " " itemLabel <- editableLabelNew " "
GTK.boxAppend contentBox itemLabel GTK.boxAppend contentBox itemLabel
GTK.widgetSetHalign itemLabel GTK.AlignStart
GTK.widgetSetHexpand itemLabel True
visibleButton <- GTK.buttonNew visibleButton <- GTK.buttonNew
lockedButton <- GTK.buttonNew lockedButton <- GTK.buttonNew
GTK.boxAppend contentBox visibleButton GTK.boxAppend contentBox visibleButton
GTK.boxAppend contentBox lockedButton GTK.boxAppend contentBox lockedButton
GTK.widgetSetHalign visibleButton GTK.AlignEnd
GTK.widgetSetHalign lockedButton GTK.AlignEnd
widgetAddClass visibleButton "strokeButton" widgetAddClass visibleButton "strokeButton"
widgetAddClass lockedButton "strokeButton" widgetAddClass lockedButton "strokeButton"