tbug fix - plan9port - [fork] Plan 9 from user space
  HTML git clone git://src.adamsgaard.dk/plan9port
   DIR Log
   DIR Files
   DIR Refs
   DIR README
   DIR LICENSE
       ---
   DIR commit 886f121bc35301c5f0d167be6bc02a1b364b2bf8
   DIR parent 474ef694962718ddf82f93f841f91ee0a1dc6252
  HTML Author: rsc <devnull@localhost>
       Date:   Fri,  7 Jan 2005 19:17:58 +0000
       
       bug fix
       
       Diffstat:
         M bin/adict                           |      16 +++++++++-------
       
       1 file changed, 9 insertions(+), 7 deletions(-)
       ---
   DIR diff --git a/bin/adict b/bin/adict
       t@@ -7,11 +7,13 @@ fn event {
                # $2 - c2 type of action
                # $3 - q0 beginning of selection
                # $4 - q1 end of selection
       -        # $5 - flag
       -        # $6 - nr number of runes in $7
       -        # $7 - text
       -        # $8 - chorded argument
       -        # $9 - origin of chorded argument
       +        # $5 - eq0 beginning of expanded selection
       +        # $6 - eq1 end of expanded selection
       +        # $7 - flag
       +        # $8 - nr number of runes in $7
       +        # $9 - text
       +        # $10 - chorded argument
       +        # $11 - origin of chorded argument
        
                switch($1$2){
                case E*        # write to body or tag
       t@@ -28,9 +30,9 @@ fn event {
                case Ml ML        # button 3 in tag or body
                        {
                                if(~ $dict NONE)
       -                                dictwin /adict/$7/ $7
       +                                dictwin /adict/$9/ $9
                                if not
       -                                dictwin /adict/$dict/$7 $dict $7
       +                                dictwin /adict/$dict/$9 $dict $9
                        } &
                }
        }