Eskil

Check-in [1f5d5a8b1b]
Login

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

Overview
Comment:Added save-reload option in edit mode.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: 1f5d5a8b1b0ace2955756bfe32ae209c06126de3bc7ebfafe452ca2eff1dd34f
User & Date: peter 2018-06-20 18:18:54
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
Hide Diffs Unified Diffs Ignore Whitespace Patch

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
....
2142
2143
2144
2145
2146
2147
2148








2149
2150
2151
2152
2153
2154
2155
                $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
................................................................................
                    set save 1
                }
            }
        }
    }
    close $ch
}









#####################################
# File dialog stuff
#####################################

# Check if a filename is a directory and handle starkits
proc FileIsDirectory {file {kitcheck 0}} {







>







 







>
>
>
>
>
>
>
>







2082
2083
2084
2085
2086
2087
2088
2089
2090
2091
2092
2093
2094
2095
2096
....
2143
2144
2145
2146
2147
2148
2149
2150
2151
2152
2153
2154
2155
2156
2157
2158
2159
2160
2161
2162
2163
2164
                $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
................................................................................
                    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}} {