Fossil

Check-in [302ab3a4]
Login

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

Overview
Comment:Set text widgets to "-state disabled" after loading data.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | sbsreloaded
Files: files | file ages | folders
SHA1:302ab3a4e81ec124a320ac2a266cdf1d7dae5586
User & Date: joel 2013-07-10 21:41:14
Context
2013-07-11
00:37
Tk diff: Cycle through diffs based on current location rather than the last one you selected in the menu. Menu button now has generic "Files" label. check-in: 90fa0601 user: joel tags: sbsreloaded
2013-07-10
21:41
Set text widgets to "-state disabled" after loading data. check-in: 302ab3a4 user: joel tags: sbsreloaded
18:06
Combine all diffs into a single display in Tk diff. check-in: 0a41e2b3 user: joel tags: sbsreloaded
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to src/diffcmd.c.

707
708
709
710
711
712
713
714
715
716
717
718


719
720
721
722
723
724
725
@           $c insert end [dehtml $pre] -
@         }
@       }
@     }
@   }
@   close $in
@   
@   foreach c {.lnA .mkr .lnB} {
@     $c config -width $widths([colType $c])
@   }
@   foreach c {.txtA .txtB} {
@     $c config -tabs [expr {[font measure mono 0]*($widths(txt)+1)}]


@   }
@ }
@ 
@ proc viewDiff {idx} {
@   .files config -text [.files.menu entrycget $idx -label]
@   .txtA yview diff$idx
@ }







|
|
|
|
|
>
>







707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
@           $c insert end [dehtml $pre] -
@         }
@       }
@     }
@   }
@   close $in
@   
@   foreach c [cols] {
@     if {[colType $c] eq "txt"} {
@       $c config -tabs [expr {[font measure mono 0]*($widths(txt)+1)}]
@     } else {
@       $c config -width $widths([colType $c])
@     }
@     $c config -state disabled
@   }
@ }
@ 
@ proc viewDiff {idx} {
@   .files config -text [.files.menu entrycget $idx -label]
@   .txtA yview diff$idx
@ }