| 18d715bd |
1 | puts "============" |
| 2 | puts "OCC23670" |
| 3 | puts "============" |
| 4 | puts "" |
| 5 | ############################################################################ |
| 6 | # Support for multiple 3D views |
| 7 | ############################################################################ |
| 8 | |
| 9 | #test case for vinit, vclose and vviewlist commands |
| 10 | #create view with default name Driver1/Viewer1/View1 |
| 11 | vinit |
| 12 | vinit MyDriver/MyViewer/View1 |
| 13 | vinit MyDriver/MyViewer/MyView |
| 14 | #close MyDriver/MyViewer/View1 |
| 15 | vclose View1 |
| 16 | set ResultBefore [vviewlist] |
| 17 | vinit Driver1/Viewer1/MyView |
| 18 | vclose MyView |
| 19 | vinit Driver1/Viewer1/View2 |
| 20 | |
| 21 | set ResultAfter [vviewlist] |
| 22 | set Result [string equal $ResultBefore $ResultAfter] |
| 23 | #compare outputs of two vviewlist calls |
| 24 | if {$Result != 0} { |
| 25 | puts "Error. Different view lists are equal." |
| 26 | } |
| 27 | |
| 28 | set only_screen 1 |
projects / occt.git / blame