Artifact
7de3d964b3b588d747af9451a5a99eca29ee4d5a:
Ticket change
[7de3d964]
- Ticket [e9a842a3]
TkCanvas events search for all objects , even they are not displayed status still Open with 3 other changes
by
arjenmarkus
2013-12-28 14:45:22.
D 2013-12-28T14:45:22.468
J icomment I\shave\sattached\sa\sfirst\spatch\sthat\simplements\sthe\sideas\sfrom\sNataraja's\soriginal\spatch,\sbut\swithout\susing\san\saditional\slist\sor\sadditional\sfields\s(merely\susing\stwo\sbits\sin\sthe\sexisting\sstructures).\r\n\r\nThe\spatch\sis\snot\scomplete\syet:\r\n-\sNo\sdocumentation\r\n-\sOnly\srectangles\sand\sovals\saffected\r\n\r\nHere\sis\sthe\sprogram\sI\sused\sto\stest\sit:\r\n\r\n#\schkoptim.tcl\s--\r\n#\s\s\s\s\sIncrementally\scheck\sthe\sadaptation\sof\sthe\scanvas\swidget\sto\sthe\spatch\r\n#\r\n\r\n#\r\n#\sStep\s1:\soption\s-suppresssmallitems\sis\sproperly\srecognised\r\n#\r\npackage\srequire\sTk\r\n#console\sshow\r\npack\s[canvas\s.c\s-suppresssmallitems\s1\s-width\s400\s-height\s400]\r\nputs\s[.c\scget\s-suppresssmallitems]\r\n\r\n#\r\n#\sStep\s2:\screate\slarge\sand\ssmall\srectangles\r\n#\r\n.c\screate\srectangle\s\s10\s\s10\s\s20\s\s20\s-tag\s{RECT\sLARGE}\r\n.c\screate\srectangle\s101\s101\s102\s102\s-tag\s{RECT\sSMALL}\r\n\r\n.c\sscale\sSMALL\s100\s100\s0.1\s0.1\r\n\r\ncatch\s{\r\n\s\s\s\sconsole\sshow\r\n}\r\n#puts\s"Suppress\son:\s\s[.c\sfind\swithtag\sSMALL]"\r\n#after\s2000\s{\r\n#\s\s\s.c\sconfigure\s-suppresssmallitems\s0\r\n#\s\s\sputs\s"Suppress\soff:\s[.c\sfind\swithtag\sSMALL]"\r\n#}\r\n\r\n#\r\n#\sStep\s3:\screate\sa\slarge\snumber\sof\s(small)\srectangles\sand\smeasure\sthe\r\n#\s\s\s\s\s\s\s\s\stime\sit\stakes\sto\sdraw\sthem\r\n#\r\nfor\s{set\si\s0}\s{$i\s<\s1000000}\s{incr\si}\s{\r\n\s\s\s\sset\sx\s[expr\s{rand()*400}]\r\n\s\s\s\sset\sy\s[expr\s{rand()*400}]\r\n\r\n\s\s\s\sset\sid\s[.c\screate\srectangle\s$x\s$y\s[expr\s{$x+0.1}]\s[expr\s{$y+0.1}]]\r\n\s\s\s\s#.c\sscale\s$id\s0\s0\s1\s1\r\n}\r\n\r\nafter\s1000\s{\r\n\s\s\s\s.c\sconfigure\s-suppresssmallitems\s1\r\n\s\s\s\sset\sid\s[.c\screate\srectangle\s0\s0\s400\s400\s-fill\swhite]\r\n\s\s\s\s.c\screate\srectangle\s10\s200\s20\s210\s-fill\syellow\s-width\s3\r\n\s\s\s\safter\s100\s{\r\n\s\s\s\s\s\s\s\s.c\sdelete\s$id\r\n\s\s\s\s}\r\n}
J login arjenmarkus
J mimetype text/plain
K e9a842a3c584d6e709398529863fb8f798c83e3c
U arjenmarkus
Z 8b3e9315dace857d83214c125ea4b926
