Eskil

Check-in [5e8e3a522f]
Login

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

Overview
Comment:Comment fix
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 5e8e3a522f652fda304040825ab68814b7d21e70
User & Date: peter 2007-12-05 18:51:01.000
Context
2007-12-05
18:51
Bumped rev to 2.3 check-in: 2610ff91cf user: peter tags: trunk
18:51
Comment fix check-in: 5e8e3a522f user: peter tags: trunk
18:49
Added optional wide map. Added middle-button click on map. check-in: d178b78ad6 user: peter tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Changes to src/rev.tcl.
︙︙
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156

        set thisdir [file tail $dir]
        set dir [file dirname $dir]
        set tail [file join $thisdir $tail]
    }
    cd $dir
    catch {exec git show $rev:$tail > $outfile}
    cd $old
    # Dummy copy for now FIXA
    #file copy $filename $outfile
}

# Get a ClearCase revision
proc eskil::rev::CT::get {filename outfile rev} {
    set filerev [file nativename $filename@@$rev]
    if {[catch {exec cleartool get -to $outfile $filerev} msg]} {
        tk_messageBox -icon error -title "Cleartool error" -message $msg








|
<








141
142
143
144
145
146
147
148

149
150
151
152
153
154
155

        set thisdir [file tail $dir]
        set dir [file dirname $dir]
        set tail [file join $thisdir $tail]
    }
    cd $dir
    catch {exec git show $rev:$tail > $outfile}
    cd $old
    # example: git show HEAD^^^:apa

}

# Get a ClearCase revision
proc eskil::rev::CT::get {filename outfile rev} {
    set filerev [file nativename $filename@@$rev]
    if {[catch {exec cleartool get -to $outfile $filerev} msg]} {
        tk_messageBox -icon error -title "Cleartool error" -message $msg
︙︙