/[dejagnu]/dejagnu/contrib/testit
ViewVC logotype

Diff of /dejagnu/contrib/testit

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1.1.1 by rsavoye, Mon Feb 5 04:18:47 2001 UTC revision 1.2 by bje, Sun Aug 17 23:05:55 2003 UTC
# Line 488  proc Alias { args} { Line 488  proc Alias { args} {
488  #                   the alias name, and the second parameter is  #                   the alias name, and the second parameter is
489  #                   the procedure that is aliased.  #                   the procedure that is aliased.
490  # Returns: nothing, the command that is bound to the alias or a  # Returns: nothing, the command that is bound to the alias or a
491  #          list of all aliases - command pairs.  #          list of all aliases - command pairs.
492  # Sideeffects: internalAliasList is updated, and the alias  # Sideeffects: internalAliasList is updated, and the alias
493  #              proc is inserted  #              proc is inserted
494  ##########  ##########
# Line 819  if [string match "" $tmp] then { Line 819  if [string match "" $tmp] then {
819  }  }
820  }  }
821    
822  # Procedure: dialogbox  # Procedure: dialogbox
823  proc dialogbox {} {  proc dialogbox {} {
824    set w .frame6.top2    set w .frame6.top2
825    catch {destroy $w}    catch {destroy $w}
# Line 857  if [info exists editor] then { Line 857  if [info exists editor] then {
857      }      }
858    }    }
859  }  }
860  .frame6.frame.text2 delete 0.0 end  .frame6.frame.text2 delete 0.0 end
861  set fd [open $name r]  set fd [open $name r]
862  while { [gets $fd line]>=0 } {  while { [gets $fd line]>=0 } {
863  .frame6.frame.text2 insert end "$line\n"  .frame6.frame.text2 insert end "$line\n"
# Line 899  proc XFLocalParseAppDefs {xfAppDefFile} Line 899  proc XFLocalParseAppDefs {xfAppDefFile}
899        # situation where a resource name ends in . and when it        # situation where a resource name ends in . and when it
900        # ends in *.  In the second case you want to keep the *        # ends in *.  In the second case you want to keep the *
901        # in the widget name for pattern matching, but you want        # in the widget name for pattern matching, but you want
902        # to get rid of the . if it is the end of the name.        # to get rid of the . if it is the end of the name.
903        set backup -2          set backup -2
904        set line [string trim $line]        set line [string trim $line]
905        if {[string index $line 0] == "#" || "$line" == ""} {        if {[string index $line 0] == "#" || "$line" == ""} {
906          # skip comments and empty lines          # skip comments and empty lines
# Line 910  proc XFLocalParseAppDefs {xfAppDefFile} Line 910  proc XFLocalParseAppDefs {xfAppDefFile}
910        set resource [string trim [lindex $list 0]]        set resource [string trim [lindex $list 0]]
911        set i [string last "." $resource]        set i [string last "." $resource]
912        set j [string last "*" $resource]        set j [string last "*" $resource]
913        if {$j > $i} {        if {$j > $i} {
914          set i $j          set i $j
915          set backup -1          set backup -1
916        }        }
# Line 1035  proc XFLocalSetAppDefs {{xfWidgetPath ". Line 1035  proc XFLocalSetAppDefs {{xfWidgetPath ".
1035            # make sure this command is a widget.            # make sure this command is a widget.
1036            if {![catch "winfo id $widget"] &&            if {![catch "winfo id $widget"] &&
1037                [string match "${xfWidgetPath}*" $widget]} {                [string match "${xfWidgetPath}*" $widget]} {
1038              catch "$widget configure -$name $value"              catch "$widget configure -$name $value"
1039            }            }
1040          }          }
1041        }        }

Legend:
Removed from v.1.1.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26