From: cas Date: Fri, 5 Nov 1999 18:28:10 +0000 (+0000) Subject: No comments X-Git-Url: http://git.dev.opencascade.org/gitweb/?a=commitdiff_plain;h=61696995d958be953d0c07517d5cd70b64cab4da;p=occt-wok.git No comments --- diff --git a/src/WOKTclLib/wokPRM.tcl b/src/WOKTclLib/wokPRM.tcl index 2e1820b..8027ea5 100755 --- a/src/WOKTclLib/wokPRM.tcl +++ b/src/WOKTclLib/wokPRM.tcl @@ -188,7 +188,7 @@ proc wokPRM:Modify { adr nb page } { tixForm $IWOK_GLOBALS(PRM,Modify,wrkst,but,all) -top 2 set prev {} ; set curr {} ;set curwrkst [wokprofile -s] - foreach x [list sun sil ao1 hp wnt lin] { + foreach x [list sun sil ao1 hp wnt] { set curr [string tolower ${wrkst}.${x}] checkbutton $curr -text $x -variable IWOK_GLOBALS(PRM,Modify,wrkst,$x) -command wokPRM:wrkst