--- tkirc.orig	Sat Jan 15 02:03:17 2000
+++ tkirc	Sat Jan 15 02:08:15 2000
@@ -436,8 +436,8 @@
 set win(reqcount)      1
 
 set default_entry_bindings {
-  {<Shift-Delete> {%W delete insert end ; break}}
-  {<Shift-BackSpace> {%W delete 0 insert ; break}}
+# {<Shift-Delete> {%W delete insert end ; break}}
+# {<Shift-BackSpace> {%W delete 0 insert ; break}}
   {<Shift-Left> {%W icursor 0 ; %W xview 0 ; break}}
   {<Shift-Right> {%W icursor end ; %W xview end ; break}}
   {<Alt-Left> {EntryOneWordLeft %W}}
@@ -6057,6 +6057,10 @@
     bind $path <Shift-Next> "$f.left.traffic.text yview end"
     bind $path <Prior> "TextPageUp $f.left.traffic.text"
     bind $path <Next> "TextPageDown $f.left.traffic.text"
+    bind $path <Button-4> "TextPageUp $f.left.traffic.text"
+    bind $path <Button-5> "TextPageDown $f.left.traffic.text"
+    bind $path <Shift-Button-4> "$f.left.traffic.text yview 0"
+    bind $path <Shift-Button-5> "$f.left.traffic.text yview end"
 
     InitTopic $num
     InitUserList $num