Sign Up
Log In
Log In
or
Sign Up
Places
All Projects
Status Monitor
Collapse sidebar
openSUSE:Leap:15.2:Update
spectcl
SpecTcl1.1-tk8.4.patch
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
File SpecTcl1.1-tk8.4.patch of Package spectcl
--- SpecTcl/configure.tk +++ SpecTcl/configure.tk @@ -203,7 +203,7 @@ pack .palette.f -fill both -anchor nw -padx 2 -pady 2 set x 0 - foreach widgetlist [list $topwidgets $bottomwidgets] { + foreach widgetlist [list $topwidgets] { foreach widget [lsort $widgetlist] { $spec(m:genericMenu) add command -label $widget \ -command "activate_generic $widget true" --- SpecTcl/perl_init.tk +++ SpecTcl/perl_init.tk @@ -710,7 +710,7 @@ incr row } set numcolumns 1 - foreach widget [lsort $bottomwidgets] { + foreach widget [lsort {}] { catch {destroy .palette.$widget} if {[lsearch [image names] $widget.gif] > -1} { set imlabel $widget.gif
Locations
Projects
Search
Status Monitor
Help
OpenBuildService.org
Documentation
API Documentation
Code of Conduct
Contact
Support
@OBShq
Terms
openSUSE Build Service is sponsored by
The Open Build Service is an
openSUSE project
.
Sign Up
Log In
Places
Places
All Projects
Status Monitor
