Eskil

Check-in [60dc0dc612]
Login

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

Overview
Comment:Syntax fix
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: 60dc0dc61217329a5bf15addb88473db217e3178f783e23dea7e4b2be8d05e55
User & Date: peter 2020-02-15 23:44:13
Context
2020-04-14
07:48
Plugin for gz files. check-in: 14d04d7a3f user: peter tags: trunk
2020-02-15
23:44
Syntax fix check-in: 60dc0dc612 user: peter tags: trunk
2020-01-15
14:15
Support -norun for dir diff. Prune empty directories in dir diff. Added -includefile/dir command line, for dir diff. check-in: e8c33e9a2c user: peter tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to eskil.vfs/lib/psballoon/psballoon.tcl.

148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
	lappend screens $sW $maxX
    }
    return $screens
}

proc psballoon::createBalloon {W mx my} {
    variable balloon
    if {![winfo exists $W]} {
        return
    }
    if {$balloon(created) == 0} {
        # Figure out widget's font
        if {[catch {set font [$W cget -font]}]} {
            set font [ttk::style lookup [winfo class $W] -font]
        }







|







148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
	lappend screens $sW $maxX
    }
    return $screens
}

proc psballoon::createBalloon {W mx my} {
    variable balloon
    if { ! [winfo exists $W]} {
        return
    }
    if {$balloon(created) == 0} {
        # Figure out widget's font
        if {[catch {set font [$W cget -font]}]} {
            set font [ttk::style lookup [winfo class $W] -font]
        }

Changes to src/eskil.syntax.

93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
##nagelfar subcmd+ _obj,eskilprint text newLine

##nagelfar implicitvarns snit::type::eskilprint self\ _obj,eskilprint width height pdf hoy fontsize linesize nlines ox1 ox2 oy page options

##########################################################
# This is the annotation needed for this object definition

##nagelfar syntax DirDiff dc=_obj,DirDiff p*
###nagelfar option DirDiff
##nagelfar return DirDiff _obj,DirDiff
##nagelfar subcmd+ _obj,DirDiff text newLine

##nagelfar implicitvarns snit::widget::DirDiff self\ _obj,DirDiff statusVar hull win self tree nice

##########################################################







|







93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
##nagelfar subcmd+ _obj,eskilprint text newLine

##nagelfar implicitvarns snit::type::eskilprint self\ _obj,eskilprint width height pdf hoy fontsize linesize nlines ox1 ox2 oy page options

##########################################################
# This is the annotation needed for this object definition

##nagelfar syntax DirDiff dc=_obj,DirDiff x?
###nagelfar option DirDiff
##nagelfar return DirDiff _obj,DirDiff
##nagelfar subcmd+ _obj,DirDiff text newLine

##nagelfar implicitvarns snit::widget::DirDiff self\ _obj,DirDiff statusVar hull win self tree nice

##########################################################