OpenCascade/occt
1
0
Fork 0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-08-14 13:30:48 +03:00
Code Activity

0026307: Minor improvements in snowflake sample

Browse Source 
- background is set to while, and lines are black
- dimension line added
- category is corrected
This commit is contained in:
abv
2015-06-03 10:21:23 +03:00
committed by bugmaster
parent e11850fd23
commit 031224c91c
2 changed files with 20 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/DrawResources/DrawTK.tcl
View File

@@ -236,10 +236,10 @@ proc vsamples {} {
set istitlefound 0
while {[gets $chan line] >= 0} {
if {[lindex [split $line " "] 0] == "#Category:"} {
set acategory [string trimleft $line "#Category: "]
set acategory [string trim [string trimleft $line "#Category: "]]
}
if {[lindex [split $line " "] 0] == "#Title:"} {
set atitle [string trimleft $line "#Title: "]
set atitle [string trim [string trimleft $line "#Title: "]]
lappend alistofthree $acategory $atitle $fname
incr istitlefound
break