Accepting request 669141 from devel:languages:tcl
OBS-URL: https://build.opensuse.org/request/show/669141 OBS-URL: https://build.opensuse.org/package/show/openSUSE:Factory/tk?expand=0&rev=42
This commit is contained in:
commit
8579a4b728
78
tk.changes
78
tk.changes
@ -1,3 +1,81 @@
|
||||
-------------------------------------------------------------------
|
||||
Wed Dec 12 16:57:36 UTC 2018 - Reinhard Max <max@suse.com>
|
||||
|
||||
- Version 8.6.9:
|
||||
* (bug)[aa7679] crash using window after master destroyed
|
||||
* (bug)[925262] New option -state for ttk::scale
|
||||
* (bug)[fa8de7] Crash [ttk::checkbutton .x -variable {}]
|
||||
* (bug)[382712] Crash in [event generate . <KeyPress>]
|
||||
* (bug)[657c38] Crash in menu destroy with checkbutton entry
|
||||
* (bug)[de156e] Deny PRIMARY selection access in safe interps
|
||||
* (bug)[b68710] Fixes in [text] bindings
|
||||
* (bug)[e20d5c] Stop failures of textTag-18.1
|
||||
* (bug)[5d991b] Fortify var traces against deleted vars
|
||||
* (bug)[1821174] Stop RenderBadPicture X error
|
||||
* (bug)[502e74] Stop X errors on untrusted connections
|
||||
* (bug)[71b131] Regression in Tk_DrawChars()
|
||||
* (bug)[59fccb] menu flaws when empty menubar clicked
|
||||
* (bug)[7423f9] improved legacy support for [tk_setPalette]
|
||||
* (bug)[de01e2] Crash in [$text replace]
|
||||
* (bug)[135696] Crash in [wm transient]
|
||||
* (bug)[309b42] Improve ttk high-contrast-mode support
|
||||
* (bug)[fabed1] GIF photo support for "deferred clear code"
|
||||
* (bug)[3441086] error message in layout-2
|
||||
* (bug)[05bd7f] vista theme for combobox
|
||||
* (bug)[382712] crash in KeyPress event handling
|
||||
* (bug)[6fcaaa] insertion cursor visibility in ttk::entry
|
||||
* (bug)[822923] cascade menu indicator color
|
||||
* (bug)[9658bc] borderwidth calculations on menu items
|
||||
* (bug)[ca403f] treeview border drawing
|
||||
* (bug)[4b555a] hang in [$text search -all]
|
||||
* (bug)[6b22d4] [treeview] binding fix
|
||||
|
||||
-------------------------------------------------------------------
|
||||
Thu Jul 12 10:39:06 UTC 2018 - max@suse.com
|
||||
|
||||
- Update tkcon.tcl to CVS revision 1.124:
|
||||
* Use -underline clearly to disambiguate from new 8.6.6 option
|
||||
-underlinefg
|
||||
* prevent file edit from undoing loading of file
|
||||
|
||||
-------------------------------------------------------------------
|
||||
Mon Feb 19 20:41:17 UTC 2018 - crrodriguez@opensuse.org
|
||||
|
||||
- add explicit buildrequire on fontconfig-devel
|
||||
|
||||
-------------------------------------------------------------------
|
||||
Fri Dec 29 20:01:34 UTC 2017 - max@suse.com
|
||||
|
||||
- Version 8.6.8:
|
||||
* (bug)[f1a3ca] Memory leak in [text] B-tree
|
||||
* (bug)[ee40fd] Report [console] init errors
|
||||
* (bug)[3295446] Improve history visibility in [console]
|
||||
* (bug)canvas closed polylines fully honor -joinstyle
|
||||
* (bug)[cc42cc] out of mem crash in tests imgPhoto-18.*
|
||||
* (bug)[3406785] fix coords rounding when drawing canvas items
|
||||
* (bug)[8277e1] linux fontchooser sync with available fonts
|
||||
* (bug)[5239fd] Segfault copying a photo image to itself
|
||||
* (bug)[514ff6] canvas rotated text overlap detection
|
||||
* (bug)[1e0db2] canvas rchars artifacts
|
||||
* (bug)[d9fdfa] display of Long non-wrapped lines in text
|
||||
* (bug)[dd9667] text anchor not set
|
||||
* (bug)[bb6b40] ::tk::AmpMenuArgs and 'entryconf'
|
||||
* (bug)[55b95f] Crash [scale] with a bignum value
|
||||
* (bug)[ce62c8] text-37.1 fails
|
||||
* (bug)[0ef1c5] OS X - tests menu-22.[345] hang
|
||||
* (bug) display of embedded toplevels
|
||||
* (bug)[73ba07] Correct property type for MULTIPLE conversion
|
||||
* (bug) Memory leak in tkImgPhoto.c.
|
||||
* (bug) Defeat zombie toplevels
|
||||
* (bug) [wm withdraw] on Window and Dock menus
|
||||
* (new)[TIP 477] nmake build system reform
|
||||
|
||||
-------------------------------------------------------------------
|
||||
Thu Oct 19 15:27:51 UTC 2017 - max@suse.com
|
||||
|
||||
- Sync SLE12 with Factory to fix a bug in Itcl that was affecting
|
||||
iwidgets (bsc#903017).
|
||||
|
||||
-------------------------------------------------------------------
|
||||
Wed Sep 13 16:59:37 UTC 2017 - max@suse.com
|
||||
|
||||
|
9
tk.spec
9
tk.spec
@ -1,7 +1,7 @@
|
||||
#
|
||||
# spec file for package tk
|
||||
#
|
||||
# Copyright (c) 2017 SUSE LINUX GmbH, Nuernberg, Germany.
|
||||
# Copyright (c) 2018 SUSE LINUX GmbH, Nuernberg, Germany.
|
||||
#
|
||||
# All modifications and additions to the file contributed by third parties
|
||||
# remain the property of their copyright owners, unless otherwise agreed
|
||||
@ -12,11 +12,12 @@
|
||||
# license that conforms to the Open Source Definition (Version 1.9)
|
||||
# published by the Open Source Initiative.
|
||||
|
||||
# Please submit bugfixes or comments via http://bugs.opensuse.org/
|
||||
# Please submit bugfixes or comments via https://bugs.opensuse.org/
|
||||
#
|
||||
|
||||
|
||||
Name: tk
|
||||
BuildRequires: fontconfig-devel
|
||||
BuildRequires: imake
|
||||
BuildRequires: libX11-devel
|
||||
BuildRequires: libXScrnSaver-devel
|
||||
@ -25,9 +26,9 @@ BuildRequires: libXt-devel
|
||||
BuildRequires: pkg-config
|
||||
BuildRequires: tcl-devel
|
||||
Url: http://www.tcl.tk
|
||||
Version: 8.6.7
|
||||
Version: 8.6.9
|
||||
Release: 0
|
||||
%define rrc %nil
|
||||
%define rrc .1
|
||||
BuildRoot: %{_tmppath}/%{name}-%{version}-build
|
||||
Summary: Graphical User Interface Toolkit for Tcl
|
||||
License: TCL
|
||||
|
@ -1,3 +0,0 @@
|
||||
version https://git-lfs.github.com/spec/v1
|
||||
oid sha256:061de2a354f9b7c7d04de3984c90c9bc6dd3a1b8377bb45509f1ad8a8d6337aa
|
||||
size 4282972
|
3
tk8.6.9.1-src.tar.gz
Normal file
3
tk8.6.9.1-src.tar.gz
Normal file
@ -0,0 +1,3 @@
|
||||
version https://git-lfs.github.com/spec/v1
|
||||
oid sha256:8fcbcd958a8fd727e279f4cac00971eee2ce271dc741650b1fc33375fb74ebb4
|
||||
size 4364603
|
24
tkcon.tcl
24
tkcon.tcl
@ -186,7 +186,7 @@ proc ::tkcon::Init {args} {
|
||||
alias clear dir dump echo idebug lremove
|
||||
tkcon_puts tkcon_gets observe observe_var unalias which what
|
||||
}
|
||||
RCS {RCS: @(#) $Id: tkcon.tcl,v 1.122 2014/09/09 10:46:15 hobbs Exp $}
|
||||
RCS {RCS: @(#) $Id: tkcon.tcl,v 1.124 2016/09/14 21:14:43 hobbs Exp $}
|
||||
HEADURL {http://tkcon.cvs.sourceforge.net/viewvc/tkcon/tkcon/tkcon.tcl}
|
||||
|
||||
docs "http://tkcon.sourceforge.net/"
|
||||
@ -1069,9 +1069,9 @@ proc ::tkcon::EvalCmd {w cmd} {
|
||||
set tag [UniqueTag $w]
|
||||
$w insert output $res [list stderr $tag] \n$trailer stderr
|
||||
$w tag bind $tag <Enter> \
|
||||
[list $w tag configure $tag -under 1]
|
||||
[list $w tag configure $tag -underline 1]
|
||||
$w tag bind $tag <Leave> \
|
||||
[list $w tag configure $tag -under 0]
|
||||
[list $w tag configure $tag -underline 0]
|
||||
$w tag bind $tag <ButtonRelease-1> \
|
||||
"if {!\[info exists tk::Priv(mouseMoved)\] || !\$tk::Priv(mouseMoved)} \
|
||||
{[list $OPT(edit) -attach [Attach] -type error -- $PRIV(errorInfo)]}"
|
||||
@ -3070,8 +3070,8 @@ proc ::tkcon::HighlightError w {
|
||||
set tag [UniqueTag $w]
|
||||
$w tag add $tag $start+${c0}c $start+1c+${c1}c
|
||||
$w tag configure $tag -foreground $COLOR(stdout)
|
||||
$w tag bind $tag <Enter> [list $w tag configure $tag -under 1]
|
||||
$w tag bind $tag <Leave> [list $w tag configure $tag -under 0]
|
||||
$w tag bind $tag <Enter> [list $w tag configure $tag -underline 1]
|
||||
$w tag bind $tag <Leave> [list $w tag configure $tag -underline 0]
|
||||
$w tag bind $tag <ButtonRelease-1> "if {!\$tk::Priv(mouseMoved)} \
|
||||
{[list $OPT(edit) -attach $app -type proc -find $what -- $cmd]}"
|
||||
}
|
||||
@ -3099,8 +3099,8 @@ proc ::tkcon::HighlightError w {
|
||||
set tag [UniqueTag $w]
|
||||
$w tag add $tag $ix+1c $start
|
||||
$w tag configure $tag -foreground $COLOR(proc)
|
||||
$w tag bind $tag <Enter> [list $w tag configure $tag -under 1]
|
||||
$w tag bind $tag <Leave> [list $w tag configure $tag -under 0]
|
||||
$w tag bind $tag <Enter> [list $w tag configure $tag -underline 1]
|
||||
$w tag bind $tag <Leave> [list $w tag configure $tag -underline 0]
|
||||
$w tag bind $tag <ButtonRelease-1> "if {!\$tk::Priv(mouseMoved)} \
|
||||
{[list $OPT(edit) -attach $app -type proc -- $cmd]}"
|
||||
}
|
||||
@ -3935,14 +3935,14 @@ proc edit {args} {
|
||||
##
|
||||
set text $w.text
|
||||
set m [menu [::tkcon::MenuButton $menu Edit edit]]
|
||||
$m add command -label "Cut" -under 2 \
|
||||
$m add command -label "Cut" -underline 2 \
|
||||
-command [list tk_textCut $text]
|
||||
$m add command -label "Copy" -under 0 \
|
||||
$m add command -label "Copy" -underline 0 \
|
||||
-command [list tk_textCopy $text]
|
||||
$m add command -label "Paste" -under 0 \
|
||||
$m add command -label "Paste" -underline 0 \
|
||||
-command [list tk_textPaste $text]
|
||||
$m add separator
|
||||
$m add command -label "Find" -under 0 \
|
||||
$m add command -label "Find" -underline 0 \
|
||||
-command [list ::tkcon::FindBox $text]
|
||||
|
||||
## Send To Menu
|
||||
@ -3996,6 +3996,8 @@ proc edit {args} {
|
||||
$w.text insert 1.0 [join $args \n]
|
||||
}
|
||||
}
|
||||
# prevent stuff above being "undoable" in newer Tk
|
||||
catch { $w.text edit reset ; $w.text edit modified 0 }
|
||||
wm deiconify $w
|
||||
focus $w.text
|
||||
if {[string compare $opts(-find) {}]} {
|
||||
|
Loading…
x
Reference in New Issue
Block a user