README.md

alited's source

The alited/src directory contains alited's own source files.

Some additional alited's files are also contained in alited/lib/addon directory (alited/lib directory contains all library files).

about.tcl - "About alited" dialogue.

alited.tcl - The alited's main script to start.

bar.tcl - Handles the bar of tabs.

check.tcl - "Check Tcl" dialogue and procedures.

complete.tcl - Handles auto-completion.

edit.tcl - "Edit" menu's procedures.

favor.tcl - Handles the favorite and last visited units.

favor_ls.tcl - "Saved lists of favorites" dialogue and procedures.

file.tcl - "File" menu's procedures.

find.tcl - "Find / Replace" dialogue and procedures.

format.tcl - "Edit / Formats" menu's procedures.

img.tcl - List of images used by alited.

indent.tcl - Handles text indentation.

info.tcl - Handles the info bar.

ini.tcl - Handles initializing alited.

keys.tcl - Handles keyboard (mapping etc.).

main.tcl - Handles the main form of alited.

menu.tcl - Handles alited's menus.

msgs.tcl - Localized messages used in several places.

paver.tcl - "Tools / Paver" tool.

pkgIndex.tcl - Includes README.md text (for Ruff doc generator).

pref.tcl - "Preferences" dialogue and procedures.

preview.tcl - "Preview (theme, CS)" dialogue called by "Preferences".

printer.tcl - "Tools / Project Printer" dialogue and procedures.

project.tcl - "Projects" dialogue and procedures.

run.tcl - "Tools / Run..." dialogue and procedures.

tool.tcl - "Tools" menu's procedures.

tree.tcl - Handles the tree of units and files.

unit.tcl - Handles the unit tree.

unit_tpl.tcl - "Templates" dialogue and procedures.

favor.tcl

###########################################################
# Name:    favor.tcl
# Author:  Alex Plotnikov  (aplsimple@gmail.com)
# Date:    07/01/2021
# Brief:   Handles favorites/last visited lists.
# License: MIT.
###########################################################

# _________________________ Variables ________________________ #

namespace eval favor {
  variable tipID {}            ;# ID of item a tip is shown for
  variable initialFavs [list]  ;# favorites that exist at starting "Favorites' list"
  variable ansOpenFiles 0      ;# response at "Open files"
}

# ________________________ Common _________________________ #

proc favor::SkipVisited {{flag ""}} {
  # Sets/gets a flag to skip remembering a last visit.

  namespace upvar ::alited al al
  set fln _FLAGSKIPLV
  if {$flag eq {}} {
    return [expr {[info exists al($fln)] && $al($fln)}]
  }
  set al($fln) $flag
}
#_______________________

proc favor::LastVisited {item header {l1 -1}} {
  # Puts an item to "Last visited" list.
  #   item - list of tree's item data (first two: -text {label})
  #   header - header of item
  #   l1 - starting line of a last visited unit, if any

  namespace upvar ::alited al al obPav obPav
  if {[SkipVisited]} {
    # avoid a false run at switching to a file from infobar/favorites
    SkipVisited no
    return
  }
  # check for "All of..." - don't save it
  set allof [string range $al(MC,alloffile) 0 [string first \" $al(MC,alloffile)]]
  if {[string first $allof $header]==0} return
  # check for "Lines..." - don't save it
  if {[regexp "^$al(MC,lines) \\d+-\\d+\$" $header]} return
  # check for an empty item - don't save it
  set name [string trim [lindex $item 1]]
  if {[string trim $name] eq {} || [string range $name end-1 end] eq {::}} {
    return
  }
  # checks done, save this last visit
  set fname [alited::bar::FileName]
  set lvisit [list $name $fname $header]
  if {$lvisit eq [lindex $al(FAV,visited) 0 4]} {
    return ;# already 1st: no need to put it
  }
  # search an old item
  set found no
  set i 0
  set ln "[expr {int([[alited::main::CurrentWTXT] index insert])}]"
  foreach it $al(FAV,visited) {
    lassign $it - - ID - values
    lassign $values name2 fname2 header2
    if {$fname eq $fname2 && $header eq $header2} {
      if {!$i} return ;# already 1st: no need to put it
      set found yes
      # if found, move it to 0th position
      set al(FAV,visited) [lreplace $al(FAV,visited) $i $i]
      break
    }
    incr i
  }
  if {!$found && $ln eq $l1} {
    # already 1st in last visits, maybe with a changed name
    set al(FAV,visited) [lreplace $al(FAV,visited) 0 0]
  }
  set al(FAV,visited) [linsert $al(FAV,visited) 0 [list - - - - $lvisit]]
  # delete last items if the list's limit is exceeded
  catch {set al(FAV,visited) [lreplace $al(FAV,visited) $al(FAV,MAXLAST) end]}
  # update the tree widget
  if {!$al(FAV,IsFavor)} {
    SetFavorites $al(FAV,visited)
    set wtree [$obPav TreeFavor]
    if {[set id0 [lindex [$wtree children {}] 0]] ne {}} {
      $wtree see $id0
    }
  }
}
#_______________________

proc favor::OpenSelectedFile {fname} {
  # Opens a file from a selected item of favorites/last visited.
  #   fname - file name
  # Returns tab's ID, if the file is open successfully.

  namespace upvar ::alited al al
  set al(dolastvisited) no
  set TID [alited::file::OpenFile $fname yes]
  set al(dolastvisited) yes
  if {$TID eq {}} {alited::Balloon1 $fname}
  return $TID
}
#_______________________

proc favor::GoToUnit {TID name header {forfavor no} {it1 {}} {values {}}} {
  # Enters a unit.
  #   TID - tab's ID
  #   name - name of the unit
  #   header - header of the unit
  #   forfavor - yes, if Favorites list is clicked and must be updated
  #   it1 - item selected in Favorites (for forfavor=yes)
  #   values - values of item selected in Favorites (for forfavor=yes)
  # Returns yes, if the unit is open successfully.
  # See also: tree::SaveCursorPos

  namespace upvar ::alited al al obPav obPav
  if {[catch {lassign $header - nameorig}]} {set nameorig $header}
  foreach it $al(_unittree,$TID) {
    set treeID [alited::tree::NewItemID [incr iit]]
    lassign $it lev leaf fl1 title l1 l2
    set name2 [alited::tree::UnitTitle $title $l1 $l2]
    if {$nameorig eq $name2 || $name eq $name2} {
      if {$forfavor} {
        set wtree [$obPav TreeFavor]
        $wtree delete $it1
        set favID [$wtree insert {} 0 -values $values]
        $wtree tag add tagNorm $favID
      }
      if {[regexp $al(RE,proc) $header]} {set name $nameorig}
      LastVisited [list -text $name] $header
      set pos [lindex $it 7]  ;# saved cursor position
      if {$pos ne {}} {set pos "$pos yes"}
      after idle "alited::tree::NewSelection $treeID $pos; alited::main::HighlightLine"
      return yes
    }
  }
  return no
}
#_______________________

proc favor::Select {} {
  # Handles selecting an item of "Favorites / Last visited" treeview.

  namespace upvar ::alited al al obPav obPav
  set msec [clock milliseconds]
  if {[info exists al(_MSEC)] && [expr {($msec-$al(_MSEC))<800}]} {
    return ;# disables double click
  }
  set al(_MSEC) $msec
  set wtree [$obPav TreeFavor]
  if {![IsSelected favID name fname sname header line]} {
    return
  }
  set values [$wtree item $favID -values]
  if {[set TID [OpenSelectedFile $fname]] eq {}} {
    DeleteLastVisited $favID
    return
  }
  # scan Favorites/last-visited tree, to find the selected item
  # and remake favorites and last visits; then go to the selected unit
  foreach it1 [$wtree children {}] {
    lassign [$wtree item $it1 -values] name2 - header2
    if {$header eq $header2} {
      if {[GoToUnit $TID $name2 $header2 $al(FAV,IsFavor) $it1 $values]} return
      break
    }
  }
  foreach it1 [$wtree children {}] {
    lassign [$wtree item $it1 -values] name2 - header2
    if {$name eq $name2} {
      if {[GoToUnit $TID $name2 $header2 $al(FAV,IsFavor) $it1 $values]} return
      DeleteLastVisited $it1
      break
    }
  }
  set msg [string map [list %u $name] $al(MC,notfndunit)]
  alited::Message $msg 3
  alited::main::FocusText
}
#_______________________

proc favor::IsSelected {IDN nameN fnameN snameN headerN lineN} {
  # Gets data of currently selected item of favorites.
  #   IDN - variable name of item's ID
  #   nameN - variable name of item's name
  #   fnameN - variable name of item's file name
  #   snameN - variable name of item's tail file name
  #   headerN - variable name of item's header
  #   lineN - variable name of item's 1st line

  namespace upvar ::alited al al obPav obPav
  upvar 1 $IDN ID $nameN name $fnameN fname $snameN sname $headerN header $lineN line
  if {[set ID [alited::tree::CurrentItem TreeFavor]] eq {}} {return no}
  set wtree [$obPav TreeFavor]
  lassign [$wtree item $ID -values] name fname header line
  set sname [file tail $fname]
  return yes
}
# ________________________ Set favorites _________________________ #

proc favor::SetAndClose {cont} {
  # Sets favorites list, opens files from favorites list, closes other files.
  #   cont - list of favorites

  SetFavorites $cont
  set fnamecont {}
  set fnamecurr [alited::bar::FileName]
  set iscurr yes
  foreach tab [alited::bar::BAR listTab] {
    set TID [lindex $tab 0]
    set fname [alited::bar::FileName $TID]
    set found no
    foreach fit $cont {
      set fnamecont [lindex $fit 4 1]
      if {$fname eq $fnamecont} {
        set found yes
        break
      }
    }
    if {!$found} {
      if {![alited::file::CloseFile $TID no]} break
      alited::bar::BAR $TID close no
      if {$fname eq $fnamecurr} {set iscurr no}
    }
  }
  if {![llength [alited::bar::BAR listTab]]} {
    # no tabs open
    if {$fnamecont ne {}} {
      alited::file::OpenFile $fnamecont yes ;#  open a file from favorites
    } else {
      alited::file::CheckForNew  ;# ... or create "no name" tab
    }
  }
  alited::bar::BAR update
  if {!$iscurr} {
    # if a current file was closed, open 1st of the open
    catch {alited::bar::BAR [lindex [alited::bar::BAR listTab] 0 0] show}
  }
}
#_______________________

proc favor::SetFavorites {cont} {
  # Sets favorites/last visited list in the treeview.
  #   cont - list of favorites/last visited

  namespace upvar ::alited al al obPav obPav
  set wtree [$obPav TreeFavor]
  foreach it [alited::tree::GetTree {} TreeFavor] {
    $wtree delete [lindex $it 2]
  }
  foreach curfav $cont {
    catch {
      lassign $curfav - - - - values
      if {$values ne {}} {
        set itemID [$wtree insert {} end -values $values]
        $wtree tag add tagNorm $itemID
      }
    }
  }
}
#_______________________

proc favor::IsFavoritesFiles {cont} {
  # Checks if the selected favorites list is a list of file names
  #   cont - content of the list

  expr {[lindex $cont 0 0] eq {FILE}}
}
#_______________________

proc favor::OpenFiles {pla cont} {
  # Opens files with current favorites.
  #   pla - if 5, current files remain; if 6, current files close
  #   cont - list of favorites

  variable ansOpenFiles
  set fnames [list]
  foreach fname $cont {
    if {$fname ne {}} {lappend fnames $fname}
  }
  if {[set llen [llength $fnames]]} {
    if {$ansOpenFiles<10} {
      set msg [msgcat::mc {Number of files to open: %n}]
      set msg [string map [list %n $llen] $msg]
      set ansOpenFiles [alited::msg okcancel warn $msg OK -ch $::alited::al(MC,noask)]
    }
    if {$ansOpenFiles} {
      # try to show them all on the 1st page of tabbar
      if {$pla==6} {alited::file::CloseAll 1}
      foreach fname [lreverse $fnames] {
        if {[set TID [alited::file::OpenFile $fname]] ne {}} {
          alited::bar::BAR moveTab $TID 0
        }
      }
      alited::bar::BAR update
    }
  }
}
#_______________________

proc favor::InitFavorites {favs} {
  # Initializes favorites list for possible "Back" of "Favorites' Lists".
  #   favs - initial list of project's favorites
  # See also: ini::ReadIniPrj

  variable initialFavs
  set initialFavs $favs
}
#_______________________

proc favor::Lists {} {
  # Runs "Lists of Favorites" dialogue, sets a list of favorites at a choice.

  namespace upvar ::alited al al
  variable initialFavs
  if {![llength $initialFavs]} {
    set initialFavs [alited::tree::GetTree {} TreeFavor]
  }
  lassign [::alited::favor_ls::_run] pla cont
  switch $pla {
    1 {SetFavorites $cont}
    2 {SetAndClose $cont}
    3 {SetFavorites $initialFavs}
    5 - 6 {OpenFiles $pla $cont}
  }
}

# ________________________ Display _________________________ #

proc favor::Show {} {
  # Shows a list of favorites / last visited units.

  namespace upvar ::alited al al obPav obPav
  set wtree [$obPav TreeFavor]
  if {$al(FAV,IsFavor)} {
    pack [$obPav BtTAddF] -side left -after [$obPav SevF]
    pack [$obPav BtTRenF] -side left -after [$obPav BtTAddF]
    [$obPav BtTVisitF] configure -image alimg_misc
    set tip $::alited::al(MC,lastvisit)
    set state normal
    SetFavorites $al(FAV,current)
    $wtree heading #1 -text [msgcat::mc $al(MC,favorites)]
  } else {
    pack forget [$obPav BtTAddF]
    pack forget [$obPav BtTRenF]
    set al(FAV,current) [list]
    foreach it [alited::tree::GetTree {} TreeFavor] {
      lappend al(FAV,current) $it
    }
    [$obPav BtTVisitF] configure -image alimg_heart
    set tip $al(MC,favorites)
    set state disable
    SetFavorites $al(FAV,visited)
    $wtree heading #1 -text [msgcat::mc $al(MC,lastvisit)]
  }
  baltip::tip [$obPav BtTVisitF] $tip
}
#_______________________

proc favor::ShowFavVisit {} {
  # Show favorites/last visits, depending on the mode.

  namespace upvar ::alited al al
  SetFavorites $al(FAV,current)
  if {!$al(FAV,IsFavor)} Show
}

proc favor::SwitchFavVisit {} {
  # Switches favorites / last visited units' view.

  namespace upvar ::alited al al
  set al(FAV,IsFavor) [expr {!$al(FAV,IsFavor)}]
  Show
}

# ________________________ Changing lists ________________________ #

proc favor::GeoForQuery {undermouse} {
  # Gets geometry for a query.
  #   undermouse - if yes, run by mouse click

  if {$undermouse} {set y -100} {set y -150}  ;# y is a shift for Y axis
  return "-geometry pointer+10+$y"
}
#_______________________

proc favor::Add {{undermouse yes} {idnames {}}} {
  # Adds a unit to favorites.
  #   undermouse - if yes, run by mouse click
  #   idnames - list of unit's ID and names to add

  namespace upvar ::alited al al obPav obPav
  set fname [alited::bar::FileName]
  set sname [file tail $fname]
  if {[set idnlen [llength $idnames]]>2} {
    set geo {} ;# for a list (of popup menu: id1 name1 id2 name2...) - no 'under mouse'
  } else {
    set geo [GeoForQuery $undermouse]
  }
  if {$idnlen==0} {
    lassign [CurrentName] itemID name l1 l2
    if {$name eq {}} return
    set idnames [list $itemID $name]
  }
  if {![info exists al(ANSWER,favor::Add)]} {
    set al(ANSWER,favor::Add) 0
  }
  foreach {itemID name} $idnames {
    set err no
    foreach it [alited::tree::GetTree {} TreeFavor] {
      lassign [lindex $it 4] name2 fname2
      if {$name eq $name2 && $fname eq $fname2} {
        set msg [string map [list %n $name %f $sname] $al(MC,addexist)]
        alited::Message $msg 4
        set err yes
        break
      }
    }
    if {$err} continue
    set msg [string map [list %n $name %f $sname] $al(MC,addfavor)]
    if {$al(ANSWER,favor::Add)==11 || [set al(ANSWER,favor::Add) \
    [alited::msg yesnocancel ques $msg YES -ch $al(MC,noask) {*}$geo]] \
    in {1 11}} {
      set wtree [$obPav Tree]
      set header [alited::unit::GetHeader [$obPav Tree] $itemID]
      if {$idnlen==0} {
        set pos [[alited::main::CurrentWTXT] index insert]
        set line [expr {($l1 eq {} || $l2 eq {} || $l1>$pos || $l2<$pos) ? 0 : \
          [::apave::p+ $pos -$l1]}]
      } else {
        set line 0 ;# favorites added from the tree
      }
      set wt2 [$obPav TreeFavor]
      set ID2 [$wt2 insert {} 0 -values [list $name $fname $header $line]]
      $wt2 tag add tagNorm $ID2
    }
    if {!$al(ANSWER,favor::Add)} break
  }
}
#_______________________

proc favor::AddFromTree {} {
  # Adds a list of selected items of the tree to Favorites.

  namespace upvar ::alited al al obPav obPav
  set wtree [$obPav Tree]
  set IDs [$wtree selection]
  if {$IDs eq {}} {bell; return}
  foreach ID $IDs {
    lappend idnames $ID [string trim [$wtree item $ID -text]]
  }
  Add no $idnames
}
#_______________________

proc favor::Delete {{undermouse yes}} {
  # Deletes an item from favorites.
  #   undermouse - if yes, run by mouse click

  namespace upvar ::alited al al obPav obPav
  lassign [CurrentID $undermouse] favID name fname
  if {$favID eq {} || ![info exists fname] || $fname eq {}} {
    bell
    return  ;# for empty list
  }
  set sname [file tail $fname]
  if {$favID eq {}} {
    set msg [string map [list %n $name %f $sname] $al(MC,notfavor)]
    alited::Message $msg 4
    return
  }
  set msg [string map [list %n $name %f $sname] $al(MC,delfavor)]
  set geo [GeoForQuery $undermouse]
  if {!$al(FAV,IsFavor) || [alited::msg yesno warn $msg YES {*}$geo]} {
    DeleteLastVisited $favID
  }
}
#_______________________

proc favor::DeleteAll {{undermouse yes}} {
  # Deletes all items from favorites.
  #   undermouse - if yes, run by mouse click

  namespace upvar ::alited al al obPav obPav
  set geo [GeoForQuery $undermouse]
  if {$al(FAV,IsFavor)} {
    set msg {Delete all of Favorites?}
    set listvar al(FAV,current)
  } else {
    set msg {Delete all of the last visited?}
    set listvar al(FAV,visited)
  }
  set favlist [alited::tree::GetTree {} TreeFavor]
  if {$favlist eq {}} {bell; return}
  if {[alited::msg yesno warn [msgcat::mc $msg] YES {*}$geo -title $al(MC,favordelall)]} {
    foreach curfav $favlist {
      [$obPav TreeFavor] delete [lindex $curfav 2]
    }
    set $listvar [list]
  }
}
#_______________________

proc favor::DeleteLastVisited {id} {
  # Deletes last visited item.
  #   id - ID of the item

  namespace upvar ::alited al al obPav obPav
  if {!$al(FAV,IsFavor)} {
    catch {
      set treelist [alited::tree::GetTree {} TreeFavor]
      set i [lsearch -exact -index 2 $treelist $id]
      set al(FAV,visited) [lreplace $al(FAV,visited) $i $i]
    }
  }
  [$obPav TreeFavor] delete $id
}
#_______________________

proc favor::Rename {{undermouse yes}} {
  # Renames a current favorite.
  #   undermouse - if yes, run by mouse click

  namespace upvar ::alited al al obPav obPav obDl2 obDl2
  lassign [CurrentID $undermouse] favID name - - header
  if {$favID eq {}} {
    bell
    return  ;# for empty list
  }
  if {![regexp $al(RE,proc) $header]} {
    alited::Message [msgcat::mc {For leaf units only!}] 4
    return
  }
  set geo [GeoForQuery $undermouse]
  lassign [$obDl2 input {} $al(MC,favorren) [list \
    ent "{} {} {-w 32}" "{$name}"] \
    -head [msgcat::mc {Favorite name:}] {*}$geo] res name2
  set name2 [string trim $name2]
  if {$res && $name2 ne {} && $name2 ne $name} {
    set wtree [$obPav TreeFavor]
    set values [$wtree item $favID -values]
    set values [lreplace $values 0 0 $name2]
    $wtree item $favID -values $values
    after 200 alited::main::FocusText
  }
}
#_______________________

proc favor::CurrentName {{dobell no}} {
  # Gets data of a current favorite.
  #   dobell - if yes, bells at empty unit tree
  # Returns a list of the favorite's data: ID, title, 1st line, last line.

  lassign [alited::tree::CurrentItemByLine {} 1] itemID - - - name l1 l2
  set name [string trim $name]
  if {$name eq {} && $dobell} bell
  list $itemID $name $l1 $l2
}
#_______________________

proc favor::CurrentID {undermouse} {
  # Gets ID of a currently selected favorite.
  #   undermouse - if yes, run by mouse click
  # Returns favorite's ID & name & file name & tree list & header or {} if a favorite not selected.

  set favID [set fname {}]
  set treelist [alited::tree::GetTree {} TreeFavor]
  if {$undermouse} {
    set name [lindex [CurrentName yes] 1]
    foreach it $treelist {
      lassign $it - - ID2 - values
      lassign $values name2 fname header
      if {$name2 eq $name} {
        set favID $ID2
        break
      }
    }
  }
  if {$favID eq {}} {
    if {![IsSelected favID name2 fname sname header line]} {
      lassign [lindex $treelist 0] - - favID - values
      lassign $values name2 fname header
      if {$favID eq {}} {return {}}
    }
  }
  list $favID $name2 $fname $treelist $header
}

# ________________________ Popup menus _________________________ #

proc favor::ShowPopupMenu {ID X Y} {
  # Displays a popup menu at clicking Favorites / last visited list.
  #   ID - tree item's ID
  #   X - x-coordinate of the mouse pointer
  #   Y - y-coordinate of the mouse pointer

  namespace upvar ::alited al al obPav obPav
  ::baltip sleep 1000
  set wtree [$obPav TreeFavor]
  set popm $wtree.popup
  catch {destroy $popm}
  menu $popm -tearoff 0
  set sname [lindex [$wtree item $ID -values] 0]
  if {[string length $sname]>25} {set sname "[string range $sname 0 21]..."}
  set msgsel [string map [list %t $sname] $al(MC,selfavor)]
  if {$al(FAV,IsFavor)} {
    set img alimg_misc
    set lab $al(MC,lastvisit)
  } else {
    set img alimg_heart
    set lab $al(MC,favorites)
  }
  $popm add command -label $lab {*}[$obPav iconA none] \
    -command alited::favor::SwitchFavVisit -image $img
  $popm add separator
  if {$al(FAV,IsFavor)} {
    $popm add command -label $al(MC,FavLists) {*}[$obPav iconA none] \
      -command ::alited::favor::Lists -image alimg_SaveFile
    $popm add separator
    $popm add command -label $al(MC,favoradd) {*}[$obPav iconA none] \
      -command ::alited::favor::Add -image alimg_add
    $popm add command -label $al(MC,favorren) {*}[$obPav iconA change] \
      -command {::alited::favor::Rename no}
  }
  $popm add command -label $al(MC,favordel) {*}[$obPav iconA none] \
    -command {::alited::favor::Delete no} -image alimg_delete
  $popm add command -label $al(MC,favordelall) {*}[$obPav iconA none] \
    -command {::alited::favor::DeleteAll no} -image alimg_trash
  $popm add separator
  $popm add command -label $al(MC,copydecl) {*}[$obPav iconA none] \
    -command "::alited::favor::CopyDeclaration $wtree $ID"
  $obPav themePopup $popm
  tk_popup $popm $X $Y
}
#_______________________

proc favor::PopupMenu {x y X Y} {
  # Prepares and runs a popup menu at clicking Favorites / last visited list.
  #   x - x-coordinate to identify tree item
  #   y - y-coordinate to identify tree item
  #   X - x-coordinate of the mouse pointer
  #   Y - y-coordinate of the mouse pointer

  namespace upvar ::alited al al obPav obPav
  set wtree [$obPav TreeFavor]
  set ID [$wtree identify item $x $y]
  if {![$wtree exists $ID]} return
  if {[set sel [$wtree selection]] ne {}} {
    $wtree selection remove $sel
  }
  $wtree selection add $ID
  ShowPopupMenu $ID $X $Y
}

# ________________________ Tips _________________________ #

proc favor::CopyDeclaration {wtree ID} {
  # Copies a current unit's declaration to the clipboard.
  #   wtree - tree widget's path
  #   ID - tree item's ID

  clipboard clear
  clipboard append [lindex [$wtree item $ID -values] 2]
}
#_______________________

proc favor::GetTooltip {ID} {
  # Gets a tip of favorite / last visited unit's declaration.
  #   ID - ID of treeview item

  namespace upvar ::alited al al obPav obPav
  if {!$al(TIPS,TreeFavor) && $al(FAV,IsFavor) || ![::alited::IsTipable]} {
    # no tips while switched off
    return {}
  }
  set wtree [$obPav TreeFavor]
  set decl [lindex [$wtree item $ID -values] 2]
  set fname [lindex [$wtree item $ID -values] 1]
  append tip $decl \n $fname
  return $tip
}

# ________________________ Initialization _________________________ #

proc favor::_init {} {
  # Initializes and shows favorite / last visited units' view.

  namespace upvar ::alited al al obPav obPav
  set wtree [$obPav TreeFavor]
  alited::tree::AddTags $wtree
  $wtree tag bind tagNorm <Return> {::alited::favor::Select}
  $wtree tag bind tagNorm <ButtonRelease-1> {::alited::favor::Select}
  $wtree tag bind tagNorm <ButtonPress-3> {after idle {alited::favor::PopupMenu %x %y %X %Y}}
  $wtree heading #1 -text [msgcat::mc $al(MC,favorites)]
  ShowFavVisit
}

# _________________________________ EOF _________________________________ #

favor.tcl