OpenCascade/occt
1
0
Fork 0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-04-06 18:26:22 +03:00
Code Packages Releases Activity

0025359: In Draw Test Harness: content of menu-items "Curves" and "Surfaces" is increased after each sample launching

Browse Source 
Menus "Curves" and "Surfaces" are destroyed now (if they exist) before displaying.
This commit is contained in:
isz 2014-10-13 16:41:00 +04:00 committed by bugmaster
parent ba4feb7629
commit 196b01482b
2 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/DrawResources/CURVES.tcl
View File

@ -13,6 +13,12 @@
if { [info commands addmenu] == "" } { return } if { [info commands addmenu] == "" } { return }
global theMenus
if [info exists theMenus(Curves)] {
destroy [string trimright $theMenus(Curves) ".menu"]
unset theMenus(Curves)
}
addmenu Curves "Line" { addmenu Curves "Line" {
dialbox line name l origin {0 0 0} direction {1 0 0} dialbox line name l origin {0 0 0} direction {1 0 0}
} }

6
src/DrawResources/SURFACES.tcl
View File

@ -13,6 +13,12 @@
if { [info commands addmenu] == "" } { return } if { [info commands addmenu] == "" } { return }
global theMenus
if [info exists theMenus(Surfaces)] {
destroy [string trimright $theMenus(Surfaces) ".menu"]
unset theMenus(Surfaces)
}
proc dialanasurf {command sname args} { proc dialanasurf {command sname args} {
set com "dialbox $command name $sname origin {0 0 0} normal {0 0 1} xdir {1 0 0} " set com "dialbox $command name $sname origin {0 0 0} normal {0 0 1} xdir {1 0 0} "
foreach l $args {append com " $l"} foreach l $args {append com " $l"}