Eskil

Check-in [a9aaeae7c7]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Ignore short unknowns on command line
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: a9aaeae7c7ba942c62a863e8621291fb73361dc0cd890e3b6a04a8edc47a9ea4
User & Date: peter 2024-03-07 22:06:49.284
Context
2024-03-07
23:02
Window browser in debug menu check-in: f028c6509e user: peter tags: trunk
22:06
Ignore short unknowns on command line check-in: a9aaeae7c7 user: peter tags: trunk
22:05
Allow deleting of balloon. Handle Notebook balloon. check-in: 5d5fdb0972 user: peter tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Changes to src/startup.tcl.
︙︙
648
649
650
651
652
653
654



655
656

657
658
659
660
661
662
663

}

# Helper to add a file argument to list of files
proc cmdLineAddFile {filesName arg} {
    upvar 1 $filesName files
    set apa [file normalize [file join [pwd] $arg]]
    if { ! [file exists $apa]} {



        puts "Bad argument: $arg"
        exit

    } else {
        lappend files $apa
    }
}

# Go through all command line arguments and start the appropriate
# diff window.








>
>
>
|
|
>








648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667

}

# Helper to add a file argument to list of files
proc cmdLineAddFile {filesName arg} {
    upvar 1 $filesName files
    set apa [file normalize [file join [pwd] $arg]]
    if { ! [file exists $apa]} {
        if {[string length $arg] <= 2 && [string match *M* $arg]} {
            puts "Ignoring argument: $arg"
        } else {
            puts "Bad argument: $arg"
            exit
        }
    } else {
        lappend files $apa
    }
}

# Go through all command line arguments and start the appropriate
# diff window.
︙︙