Artifact 59db5d3b8ebda2017f65900b830ac4c6f1f16987:

Ticket change [59db5d3b8e] - New ticket [72a5727d1b] ScrollableFrame changes width upon unmap and map events. by oehhar 2016-10-13 14:31:46.

---

D 2016-10-13T14:31:46.528
J assignee nobody
J closer nobody
J cmimetype text/x-fossil-wiki
J comment Follwing\sticket\scopied\sfrom\stcllib\stracker:\s[http://core.tcl.tk/tcllib/tktview/9d21e52e39c37d9521e8d34da3b301219b8f909c]\r\n\r\nAs\sstated\sin\sthe\stitle,\sthe\sScrollableFrame\schanges\swidth\supon\sunmap\sand\smap\sevents.\r\n\r\nSee:\s[https://groups.google.com/forum/#!topic/comp.lang.tcl/Q5prg9lsOYc]\r\n\r\n\r\nI\shave\sfound\sthe\sbug\sand\ssolved\sit.\sHere\sare\sthe\soriginal\sand\smodified\r\nprocedures:\r\n\r\n<verbatim>\r\nproc\sScrollableFrame::_frameConfigure\s{canvas\s{unmap\s0}}\s{\r\n\s\s\s\s#\sThis\sensures\sthat\swe\sdon't\sget\sfunny\sscrollability\sin\sthe\sframe\r\n\s\s\s\s#\swhen\sit\sis\ssmaller\sthan\sthe\scanvas\sspace\r\n\s\s\s\s#\suse\s[winfo]\sto\sget\sheight\s&\swidth\sof\sframe\r\n\r\n\s\s\s\s#\s[winfo]\sdoesn't\swork\sfor\sunmapped\sframe\r\n\s\s\s\sset\sframeh\s[expr\s{$unmap\s?\s0\s:\s[winfo\sheight\s$canvas.frame]}]\r\n\s\s\s\sset\sframew\s[expr\s{$unmap\s?\s0\s:\s[winfo\swidth\s$canvas.frame]}]\r\n\r\n\s\s\s\sset\sheight\s[_max\s$frameh\s[winfo\sheight\s$canvas]]\r\n\s\s\s\sset\swidth\s[_max\s$framew\s[winfo\swidth\s$canvas]]\r\n\r\n\s\s\s\s$canvas:cmd\sconfigure\s-scrollregion\s[list\s0\s0\s$width\s$height]\r\n}\r\n</verbatim>\r\n\r\nThis\sis\sthe\smodified\sabove\sprocedure.\r\n<verbatim>\r\nproc\sScrollableFrame::_frameConfigure\s{canvas\s{unmap\s0}}\s{\r\n\s\s\s\s#\sThis\sensures\sthat\swe\sdon't\sget\sfunny\sscrollability\sin\sthe\sframe\r\n\s\s\s\s#\swhen\sit\sis\ssmaller\sthan\sthe\scanvas\sspace\r\n\s\s\s\s#\suse\s[winfo]\sto\sget\sheight\s&\swidth\sof\sframe\r\n\r\n\s\s\s\s#\s[winfo]\sdoesn't\swork\sfor\sunmapped\sframe\r\n\s\s\s\sif\s{$unmap}\s{\s\sreturn\s\s}\r\n\r\n\s\s\s\sset\sframeh\s[winfo\sheight\s$canvas.frame]\r\n\s\s\s\sset\sframew\s[winfo\swidth\s$canvas.frame]\r\n\r\n\s\s\s\sset\sheight\s[_max\s$frameh\s[winfo\sheight\s$canvas]]\r\n\s\s\s\sset\swidth\s[_max\s$framew\s[winfo\swidth\s$canvas]]\r\n\r\n\s\s\s\s$canvas:cmd\sconfigure\s-scrollregion\s[list\s0\s0\s$width\s$height]\r\n}\r\n</verbatim>
J foundin 1.9.10
J is_private 0
J login oehhar
J priority 5\sMedium
J private_contact 0f366eb3e9e2fcab52b8ebacd197db9047186a5f
J resolution None
J severity Minor
J status Open
J submitter oehhar
J subsystem bwidget\s1.x
J title ScrollableFrame\schanges\swidth\supon\sunmap\sand\smap\sevents
J type Bug
K 72a5727d1b7fb76b32cea032eb7d4bf7c6fa28bf
U oehhar
Z 2fe47d3f886a6a1d9950f04ecf5a8be0