From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 30387 invoked by alias); 8 Nov 2002 05:27:33 -0000 Mailing-List: contact insight-help@sources.redhat.com; run by ezmlm Precedence: bulk List-Subscribe: List-Archive: List-Post: List-Help: , Sender: insight-owner@sources.redhat.com Received: (qmail 30380 invoked from network); 8 Nov 2002 05:27:32 -0000 Received: from unknown (HELO mx1.redhat.com) (66.187.233.31) by sources.redhat.com with SMTP; 8 Nov 2002 05:27:32 -0000 Received: from int-mx1.corp.redhat.com (int-mx1.corp.redhat.com [172.16.52.254]) by mx1.redhat.com (8.11.6/8.11.6) with ESMTP id gA854lw02413 for ; Fri, 8 Nov 2002 00:04:47 -0500 Received: from pobox.corp.redhat.com (pobox.corp.redhat.com [172.16.52.156]) by int-mx1.corp.redhat.com (8.11.6/8.11.6) with ESMTP id gA85RWf19171 for ; Fri, 8 Nov 2002 00:27:32 -0500 Received: from DRAGON (romulus-int.sfbay.redhat.com [172.16.27.46]) by pobox.corp.redhat.com (8.11.6/8.11.6) with ESMTP id gA85RVs09285 for ; Fri, 8 Nov 2002 00:27:31 -0500 Subject: [patch] Remove CygScrolledListbox From: "Martin M. Hunt" To: "insight@sources.redhat.com" Content-Type: multipart/mixed; boundary="=-me60nofF2qpRSQ5BfmP8" Date: Thu, 07 Nov 2002 21:27:00 -0000 Message-Id: <1036733320.14475.1.camel@localhost.localdomain> Mime-Version: 1.0 X-SW-Source: 2002-q4/txt/msg00087.txt.bz2 --=-me60nofF2qpRSQ5BfmP8 Content-Type: text/plain Content-Transfer-Encoding: 7bit Content-length: 327 Remove an old scrolledlistbox function. Add some minor improvements. 2002-11-07 Martin M. Hunt * library/util.tcl (CygScrolledListbox): Delete. * library/srctextwin.itb: Change from CygScrolledListbox to iwidgets::scrolledlistbox. Set foreground and background. Center popup over source window. --=-me60nofF2qpRSQ5BfmP8 Content-Disposition: attachment; filename=p Content-Transfer-Encoding: quoted-printable Content-Type: text/x-patch; name=p; charset=UTF-8 Content-length: 2665 Index: srctextwin.itb =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /cvs/src/src/gdb/gdbtk/library/srctextwin.itb,v retrieving revision 1.38 diff -p -r1.38 srctextwin.itb *** srctextwin.itb 15 Oct 2002 21:19:51 -0000 1.38 --- srctextwin.itb 8 Nov 2002 05:22:10 -0000 *************** itcl::body SrcTextWin::ask_thread_bp {}=20 *** 2822,2829 **** =20=20=20=20 set a [toplevel .[gensym]] wm title $a "Thread Selection" ! CygScrolledListbox $a.slb -selectmode multiple -height $num_threads !=20=20=20 set i [expr $num_threads - 1] set width 0 foreach line $threads { --- 2822,2832 ---- =20=20=20=20 set a [toplevel .[gensym]] wm title $a "Thread Selection" !=20 ! iwidgets::scrolledlistbox $a.slb \ ! -vscrollmode dynamic -hscrollmode dynamic \ ! -selectmode multiple -textfont global/fixed !=20 set i [expr $num_threads - 1] set width 0 foreach line $threads { *************** itcl::body SrcTextWin::ask_thread_bp {}=20 *** 2837,2855 **** if {[string length $line] > $width} { set width [string length $line] } ! $a.slb.list insert 0 $line=20 incr i -1 } } ! $a.slb.list configure -width $width =20=20 frame $a.b button $a.b.ok -text OK -underline 0 -width 7 \ ! -command "$this do_thread_bp $a.slb.list" button $a.b.cancel -text Cancel -width 7 -underline 0 -command "destroy= $a" pack $a.b.ok $a.b.cancel -side left standard_button_box $a.b pack $a.b -fill x -expand yes -side bottom -padx 5 -pady 5 pack $a.slb -side top -fill both -expand yes bind $a.b.ok "$a.b.ok flash; $a.b.ok invoke" focus $a.b.ok --- 2840,2860 ---- if {[string length $line] > $width} { set width [string length $line] } ! $a.slb insert 0 $line=20 incr i -1 } } ! $a.slb configure -visibleitems ${width}x$num_threads=20 ! [$a.slb component listbox] configure -bg $::Colors(textbg) -fg $::Color= s(textfg) =20=20 frame $a.b button $a.b.ok -text OK -underline 0 -width 7 \ ! -command "$this do_thread_bp $a.slb" button $a.b.cancel -text Cancel -width 7 -underline 0 -command "destroy= $a" pack $a.b.ok $a.b.cancel -side left standard_button_box $a.b pack $a.b -fill x -expand yes -side bottom -padx 5 -pady 5 + center_window $a -over [winfo toplevel [namespace tail $this]] pack $a.slb -side top -fill both -expand yes bind $a.b.ok "$a.b.ok flash; $a.b.ok invoke" focus $a.b.ok --=-me60nofF2qpRSQ5BfmP8--