Check-in [ba840d6874]
Not logged in

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

Overview
Comment:Add new downloads to the top of the list, not the bottom. (CVS 1261)
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:ba840d687418ccf760416fcc4341daf2da3098d3
User & Date: danielk1977 2008-02-04 04:42:10
Context
2008-02-04
05:39
Add ability to render plain text. (CVS 1262) check-in: 9bda4f487a user: danielk1977 tags: trunk
04:42
Add new downloads to the top of the list, not the bottom. (CVS 1261) check-in: ba840d6874 user: danielk1977 tags: trunk
2008-02-03
17:53
Automatically resize the tabs header when changing the gui font. (CVS 1260) check-in: fb70bdbca2 user: danielk1977 tags: trunk
Changes

Changes to hv/hv3_download.tcl.

1
2
3
4
5
6
7
8
...
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
namespace eval hv3 { set {version($Id: hv3_download.tcl,v 1.1 2008/02/02 17:17:31 danielk1977 Exp $)} 1 }

# ::hv3::filedownload
#
# Each currently downloading file is managed by an instance of the
# following object type. All instances in the application are managed
# by the [::hv3::the_download_manager] object, an instance of
# class ::hv3::downloadmanager (see below).
................................................................................
  proc destroy {me} {
    unset $me
    rename $me ""
  }

  proc manage {me filedownload} {
    upvar #0 $me O
    lappend O(downloads) $filedownload
    $me ReloadAllGuis
  }

  proc ReloadAllGuis {me} {
    upvar #0 $me O
    $me CheckGuiList
    foreach hv3 $O(hv3_list) {
|







 







|







1
2
3
4
5
6
7
8
...
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
namespace eval hv3 { set {version($Id: hv3_download.tcl,v 1.2 2008/02/04 04:42:10 danielk1977 Exp $)} 1 }

# ::hv3::filedownload
#
# Each currently downloading file is managed by an instance of the
# following object type. All instances in the application are managed
# by the [::hv3::the_download_manager] object, an instance of
# class ::hv3::downloadmanager (see below).
................................................................................
  proc destroy {me} {
    unset $me
    rename $me ""
  }

  proc manage {me filedownload} {
    upvar #0 $me O
    set O(downloads) [linsert $O(downloads) 0 $filedownload]
    $me ReloadAllGuis
  }

  proc ReloadAllGuis {me} {
    upvar #0 $me O
    $me CheckGuiList
    foreach hv3 $O(hv3_list) {