[prev in list] [next in list] [prev in thread] [next in thread] 

List:       exmh-workers
Subject:    Folder Cache extensions
From:       "Stefan Monnier" <monnier () TEQUILA ! SYSTEMSZ ! CS ! YALE ! EDU>
Date:       1997-01-21 19:39:45
[Download RAW message or body]

This is a multipart MIME message.


Somehow, only the changes in fcache.tcl have made it into exmh-2.0beta,
whereas the changes I had made in fdisp.tcl didn't make it. The result is
that the "cache unseen" and a few others don't work.

Here is a patch for exmh-2.0beta to appply to fdisp.tcl


	Stefan


["exmh.fdisp.patch" (application/x-patch)]

***************
*** 667,673 ****
      # Figure out what label to highlight, handling nesting
      global fdisp mhProfile
  
!     if [FdispNotDotDot $can $f] {
  	return $f
      }
      while {[string compare $f "."] && [string compare $f "/"]} {
--- 636,642 ----
      # Figure out what label to highlight, handling nesting
      global fdisp mhProfile
  
!     if {"$can" == "cache" || [FdispNotDotDot $can $f]} {
  	return $f
      }
      while {[string compare $f "."] && [string compare $f "/"]} {
***************
*** 751,758 ****
      }
  }
  proc Fdisp_HighlightTarget { f } {
!     global fdisp
!     Fcache_Folder $f
      foreach can {canvas cache} {
        if [info exists fdisp($can)] {
            FdispHighlightTarget $can $f
--- 720,730 ----
      }
  }
  proc Fdisp_HighlightTarget { f } {
!     global fdisp fcache
! 
!     if $fcache(cacheTarget) {
!        Fcache_Folder $f
!     }
      foreach can {canvas cache} {
        if [info exists fdisp($can)] {
            FdispHighlightTarget $can $f
***************
*** 781,787 ****
  }
  
  proc Fdisp_HighlightUnseen { f } {
!     global fdisp
      foreach can {canvas cache} {
        if [info exists fdisp($can)] {
            FdispHighlightUnseen $can $f
--- 753,763 ----
  }
  
  proc Fdisp_HighlightUnseen { f } {
!     global fdisp fcache
! 
!     if $fcache(cacheUnseen) {
!        Fcache_Folder $f
!     }
      foreach can {canvas cache} {
        if [info exists fdisp($can)] {
            FdispHighlightUnseen $can $f


[prev in list] [next in list] [prev in thread] [next in thread]