Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Added save-reload option in edit mode. |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
1f5d5a8b1b0ace2955756bfe32ae209c |
| User & Date: | peter 2018-06-20 18:18:54.589 |
Context
|
2018-08-17
| ||
| 15:24 | Some corrections in command line usage. check-in: 194a815839 user: peter tags: trunk | |
|
2018-06-20
| ||
| 18:18 | Added save-reload option in edit mode. check-in: 1f5d5a8b1b user: peter tags: trunk | |
| 18:18 | Upgraded tablelist to 6.2 check-in: ab38513106 user: peter tags: trunk | |
Changes
Changes to Changes.
1 2 3 4 5 6 7 8 | 2018-06-20 Upgraded tablelist to 6.2 Released 2.8.3 2018-06-13 Bumped revision to 2.8.3 Better visibility that commit happened. | > | 1 2 3 4 5 6 7 8 9 | 2018-06-20 Added save-reload option in edit mode. Upgraded tablelist to 6.2 Released 2.8.3 2018-06-13 Bumped revision to 2.8.3 Better visibility that commit happened. |
| ︙ | ︙ |
Changes to src/eskil.tcl.
| ︙ | ︙ | |||
2082 2083 2084 2085 2086 2087 2088 2089 2090 2091 2092 2093 2094 2095 |
$m add command -label "Copy Block to other side" \
-command [list copyBlock $top $n $from $to]
}
}
}
$m add command -label "Save File" -command [list saveFile $top $n]
return 0
}
proc saveFile {top side} {
if {$side == 1} {
if {!$::eskil($top,leftEdit)} return
| > | 2082 2083 2084 2085 2086 2087 2088 2089 2090 2091 2092 2093 2094 2095 2096 |
$m add command -label "Copy Block to other side" \
-command [list copyBlock $top $n $from $to]
}
}
}
$m add command -label "Save File" -command [list saveFile $top $n]
$m add command -label "Save File, Reload" -command [list saveFileR $top $n]
return 0
}
proc saveFile {top side} {
if {$side == 1} {
if {!$::eskil($top,leftEdit)} return
|
| ︙ | ︙ | |||
2142 2143 2144 2145 2146 2147 2148 2149 2150 2151 2152 2153 2154 2155 |
set save 1
}
}
}
}
close $ch
}
#####################################
# File dialog stuff
#####################################
# Check if a filename is a directory and handle starkits
proc FileIsDirectory {file {kitcheck 0}} {
| > > > > > > > > | 2143 2144 2145 2146 2147 2148 2149 2150 2151 2152 2153 2154 2155 2156 2157 2158 2159 2160 2161 2162 2163 2164 |
set save 1
}
}
}
}
close $ch
}
# Save file and reload
proc saveFileR {top side} {
saveFile $top $side
# Redo
redoDiff $top
allowEdit $top
}
#####################################
# File dialog stuff
#####################################
# Check if a filename is a directory and handle starkits
proc FileIsDirectory {file {kitcheck 0}} {
|
| ︙ | ︙ |