TreeSelect: Resolve issue #362 with origin offset being ignored

The config values `ts_originX` and `ts_originY` were not behaving like documented. They weren't doing anything at all.
This should fix that.
This commit is contained in:
Tom Smeets 2020-09-18 21:19:46 +02:00
parent fe027ce358
commit 4b65f9eef0

View File

@ -599,7 +599,7 @@ drawNode ix iy TSNode{..} col = do
colormap <- gets tss_colormap
visual <- gets tss_visual
liftIO $ drawWinBox window display visual colormap gc font col tsn_name ts_extra tsn_extra
(ix * ts_indent) (iy * ts_node_height)
(ix * ts_indent + ts_originX) (iy * ts_node_height + ts_originY)
ts_node_width ts_node_height
-- TODO: draw extra text (transparent background? or ts_background)