summaryrefslogtreecommitdiffstats
path: root/scilab/modules/scicos
diff options
context:
space:
mode:
authorJerome PICARD <jerome.picard@scilab.org>2010-04-15 12:04:00 +0200
committerJerome PICARD <jerome.picard@scilab.org>2010-04-15 12:04:00 +0200
commit3b08aec959dcbcd412c920b51136cc2d2e5c3666 (patch)
treec8e72fcd4db8ca3bd885fe17c27b6d0fca97687b /scilab/modules/scicos
parent46cd0beab8983eec2a17e3ab2b6219d8d184f365 (diff)
downloadscilab-3b08aec959dcbcd412c920b51136cc2d2e5c3666.zip
scilab-3b08aec959dcbcd412c920b51136cc2d2e5c3666.tar.gz
Correct misspelling in dialog messages
Change-Id: I1e8ea871dad1d0e3fe55ca119fb48d66950dd4b2
Diffstat (limited to 'scilab/modules/scicos')
-rw-r--r--scilab/modules/scicos/tcl/MIHM.tcl32
1 files changed, 16 insertions, 16 deletions
diff --git a/scilab/modules/scicos/tcl/MIHM.tcl b/scilab/modules/scicos/tcl/MIHM.tcl
index 3fb9358..3c656df 100644
--- a/scilab/modules/scicos/tcl/MIHM.tcl
+++ b/scilab/modules/scicos/tcl/MIHM.tcl
@@ -66,7 +66,7 @@ proc MIHM_Create { WindowsID } {
66 set dw 61;#[expr [lindex $bb1 2] - [lindex $bb1 0] + 2] ;# 52 width 66 set dw 61;#[expr [lindex $bb1 2] - [lindex $bb1 0] + 2] ;# 52 width
67 set dh 19;#[expr [lindex $bb1 3] - [lindex $bb1 1] + 2] ;# 18 height 67 set dh 19;#[expr [lindex $bb1 3] - [lindex $bb1 1] + 2] ;# 18 height
68 set dw_saf [expr $ncolumn*$dw ]; #393 ; # width of safhe 68 set dw_saf [expr $ncolumn*$dw ]; #393 ; # width of safhe
69 set dh_saf [expr $NRowMax*$dh]; # heigth of safhe in rows 69 set dh_saf [expr $NRowMax*$dh]; # height of safhe in rows
70 set num_char 8 ;# number of characters in Entry 70 set num_char 8 ;# number of characters in Entry
71 71
72 ################-----------------------------############# 72 ################-----------------------------#############
@@ -619,7 +619,7 @@ proc button_OpenXML { WindowsID } {
619 set NDIF [lindex $Info 7] 619 set NDIF [lindex $Info 7]
620 if { [expr $NDIF] > 0 } { 620 if { [expr $NDIF] > 0 } {
621 set title "State derivative fixing mode selection" 621 set title "State derivative fixing mode selection"
622 set msg "The model contains derivatievs, since you have not fixed some of them, you need to fix or relax some variables to have a square system of equations!\nPlease select un option" 622 set msg "The model contains derivatives, since you have not fixed some of them, you need to fix or relax some variables to have a square system of equations!\nPlease select an option"
623 set default 0 623 set default 0
624 set answer [tk_dialog .dialog1 $title $msg question $default { Fix states } { Fix derivatives } { I will do it later } ] 624 set answer [tk_dialog .dialog1 $title $msg question $default { Fix states } { Fix derivatives } { I will do it later } ]
625 switch $answer { 625 switch $answer {
@@ -902,10 +902,10 @@ proc ParameterEmbedding { WindowsID } {
902 global ParEmbedded 902 global ParEmbedded
903 global need_compile 903 global need_compile
904 904
905 set msg1 "Parameter Embeding option:" 905 set msg1 "Parameter Embedding option:"
906 set msg2 "\nSetting the parameter embedding option lets the user to change the parametrs and call the solver without regenerating the code." 906 set msg2 "\nSetting the parameter embedding option lets the user to change the parameters and call the solver without regenerating the code."
907 set msg3 "\nIn a code without embedded parameters, parameters are replaced by their numerical values. Hence the code is smaller and is more likely to converg." 907 set msg3 "\nIn a code without embedded parameters, parameters are replaced by their numerical values. Hence the code is smaller and is more likely to convert."
908 set msg4 "\nSo it is recommanded to use the parameter embedded option once you achieve the solution and want to test it with other parameter values." 908 set msg4 "\nSo it is recommended to use the parameter embedded option once you achieve the solution and want to test it with other parameter values."
909 tk_messageBox -icon question -type ok -title Help -message "$msg1$msg2$msg3$msg4" 909 tk_messageBox -icon question -type ok -title Help -message "$msg1$msg2$msg3$msg4"
910 set need_compile true 910 set need_compile true
911 911
@@ -1061,7 +1061,7 @@ proc ClickCellName { WindowsID x y } {
1061 1061
1062 set NRow [llength $data_i] 1062 set NRow [llength $data_i]
1063 set dh 19;#[expr [lindex $bb1 3] - [lindex $bb1 1] + 2] ;# 18 height 1063 set dh 19;#[expr [lindex $bb1 3] - [lindex $bb1 1] + 2] ;# 18 height
1064 set dh_saf [expr $NRow*$dh]; # heigth of safhe in rows 1064 set dh_saf [expr $NRow*$dh]; # height of safhe in rows
1065 set positiony [$ztable.safhe canvasy $y] 1065 set positiony [$ztable.safhe canvasy $y]
1066 if { $positiony<=$dh_saf } { 1066 if { $positiony<=$dh_saf } {
1067 set Rowi [Ceil [expr $positiony/$dh]] 1067 set Rowi [Ceil [expr $positiony/$dh]]
@@ -1109,7 +1109,7 @@ proc ClickCell { WindowsID x y } {
1109 set dw 61;#[expr [lindex $bb1 2] - [lindex $bb1 0] + 2] ;# 52 width 1109 set dw 61;#[expr [lindex $bb1 2] - [lindex $bb1 0] + 2] ;# 52 width
1110 set dh 19;#[expr [lindex $bb1 3] - [lindex $bb1 1] + 2] ;# 18 height 1110 set dh 19;#[expr [lindex $bb1 3] - [lindex $bb1 1] + 2] ;# 18 height
1111 set dw_saf [expr $ncolumn*$dw ]; #393 ; # width of safhe 1111 set dw_saf [expr $ncolumn*$dw ]; #393 ; # width of safhe
1112 set dh_saf [expr $NRow*$dh]; # heigth of safhe in rows 1112 set dh_saf [expr $NRow*$dh]; # height of safhe in rows
1113 set num_char 8 ;# number of characters in Entry 1113 set num_char 8 ;# number of characters in Entry
1114 1114
1115 set positionx [$ztable.safhe canvasx $x] 1115 set positionx [$ztable.safhe canvasx $x]
@@ -1190,7 +1190,7 @@ proc EditHublotEnter { WindowsID dxi dyj } {
1190 } 1190 }
1191 1191
1192 if { $ParEmbedded == 0 } { 1192 if { $ParEmbedded == 0 } {
1193 if { $Colj == 1 } { # compilig the diagram if the value of a fixed parameter changes 1193 if { $Colj == 1 } { # compiling the diagram if the value of a fixed parameter changes
1194 if { $new_data_i ne $data_i } { 1194 if { $new_data_i ne $data_i } {
1195 set rowi [lindex $new_data_i [expr $Rowi-2]] 1195 set rowi [lindex $new_data_i [expr $Rowi-2]]
1196 set weight [lindex $rowi 5] 1196 set weight [lindex $rowi 5]
@@ -1218,7 +1218,7 @@ proc EditHublot { WindowsID Rowi Colj data_i } {
1218 set dw 61;#[expr [lindex $bb1 2] - [lindex $bb1 0] + 2] ;# 52 width 1218 set dw 61;#[expr [lindex $bb1 2] - [lindex $bb1 0] + 2] ;# 52 width
1219 set dh 19;#[expr [lindex $bb1 3] - [lindex $bb1 1] + 2] ;# 18 height 1219 set dh 19;#[expr [lindex $bb1 3] - [lindex $bb1 1] + 2] ;# 18 height
1220 set dw_saf [expr $ncolumn*$dw ]; #393 ; # width of safhe 1220 set dw_saf [expr $ncolumn*$dw ]; #393 ; # width of safhe
1221 set dh_saf [expr $NRow*$dh]; # heigth of safhe in rows 1221 set dh_saf [expr $NRow*$dh]; # height of safhe in rows
1222 set num_char 8 ;# number of characters in Entry 1222 set num_char 8 ;# number of characters in Entry
1223 1223
1224 if { $Rowi>$NRow & $Colj==$ncolumn | $Rowi==$NRow & $Colj>$ncolumn } { 1224 if { $Rowi>$NRow & $Colj==$ncolumn | $Rowi==$NRow & $Colj>$ncolumn } {
@@ -1244,7 +1244,7 @@ proc EditHublot { WindowsID Rowi Colj data_i } {
1244 $ztable.safhe create window $xtarget $ytarget -window $ztable.safhe.entry -anchor nw -tags tag_safhe 1244 $ztable.safhe create window $xtarget $ytarget -window $ztable.safhe.entry -anchor nw -tags tag_safhe
1245 $ztable.safhe.entry configure -width 0;#$num_char ;# adjustable width size 1245 $ztable.safhe.entry configure -width 0;#$num_char ;# adjustable width size
1246 1246
1247 focus $ztable.safhe ;#crucial for functionnng with TAB 1247 focus $ztable.safhe ;#crucial for functioning with TAB
1248 focus $ztable.safhe.entry 1248 focus $ztable.safhe.entry
1249 1249
1250 if { ($Rowi_last*$Colj_last)>0 } {; # saving the old cell in the tree as well as in the safhe 1250 if { ($Rowi_last*$Colj_last)>0 } {; # saving the old cell in the tree as well as in the safhe
@@ -1441,7 +1441,7 @@ proc draw_data_i { data_i } {
1441 set dw 61;#[expr [lindex $bb1 2] - [lindex $bb1 0] + 2] ;# 52 width 1441 set dw 61;#[expr [lindex $bb1 2] - [lindex $bb1 0] + 2] ;# 52 width
1442 set dh 19;#[expr [lindex $bb1 3] - [lindex $bb1 1] + 2] ;# 18 height 1442 set dh 19;#[expr [lindex $bb1 3] - [lindex $bb1 1] + 2] ;# 18 height
1443 set dw_saf [expr $ncolumn*$dw ]; #393 ; # width of safhe 1443 set dw_saf [expr $ncolumn*$dw ]; #393 ; # width of safhe
1444 set dh_saf [expr $NRow*$dh]; # heigth of safhe in rows 1444 set dh_saf [expr $NRow*$dh]; # height of safhe in rows
1445 set num_char 8 ;# number of characters in Entry 1445 set num_char 8 ;# number of characters in Entry
1446 1446
1447 #---------------------------------------------------------- 1447 #----------------------------------------------------------
@@ -1469,11 +1469,11 @@ proc draw_data_i { data_i } {
1469 set Name [lindex $rowi 0] 1469 set Name [lindex $rowi 0]
1470 set Name [filterbackCS $Name] 1470 set Name [filterbackCS $Name]
1471 1471
1472 $ztable.names create text 5 $yrowi -text $Name -anchor w -fill blue -tag xx$i ; # varaible name 1472 $ztable.names create text 5 $yrowi -text $Name -anchor w -fill blue -tag xx$i ; # variable name
1473 set ID [lindex $rowi 2] 1473 set ID [lindex $rowi 2]
1474 set ID [filterbackCS $ID] 1474 set ID [filterbackCS $ID]
1475 1475
1476 $ztable.names create text $LL $yrowi -text $ID -anchor w -fill red -tag idx$i ; # varaible id 1476 $ztable.names create text $LL $yrowi -text $ID -anchor w -fill red -tag idx$i ; # variable id
1477 1477
1478 set Kind [lindex $rowi 1] 1478 set Kind [lindex $rowi 1]
1479 if { $Kind == "fixed_parameter" } { set OKind "parmtr" } 1479 if { $Kind == "fixed_parameter" } { set OKind "parmtr" }
@@ -1597,7 +1597,7 @@ proc fill_tree { WindowsID xmllist } {
1597 global Active_Model 1597 global Active_Model
1598 global ztree 1598 global ztree
1599 1599
1600 #$ztree delete [$ztree nodes root];# kill all chikdrens of root 1600 #$ztree delete [$ztree nodes root];# kill all childrens of root
1601# 1601#
1602 set Main_node [SearchList $WindowsID $xmllist $ztree root]; 1602 set Main_node [SearchList $WindowsID $xmllist $ztree root];
1603 1603
@@ -2406,7 +2406,7 @@ proc get_model_info { WindowsID } {
2406 $w.ninputs configure -text "Input=0" 2406 $w.ninputs configure -text "Input=0"
2407 $w.nderivats configure -text "Diff Ste=0" 2407 $w.nderivats configure -text "Diff Ste=0"
2408 return; } 2408 return; }
2409 #----------------- reading Number of equation in the xml list of the curent Model 2409 #----------------- reading Number of equation in the xml list of the current Model
2410 set nXML [llength $XML_LIST ] 2410 set nXML [llength $XML_LIST ]
2411 set index -1 2411 set index -1
2412 for { set j 0 } { $j<$nXML } { incr j } { 2412 for { set j 0 } { $j<$nXML } { incr j } {