Req - Clickable Tooltips for Pasting

[Smobu]

Clickable Tooltips for Pasting

I was hoping tha someone could modify this script to make it so that the tooltips are allowed to paste when they are clicked upon.
The windows key and v key are used to cycle through the entries that were copied earlier. I use this to mainly copy text and rename files easier.
The reason that I use this script as opposed to others is that this script does not steal the focus for renaming files.

Code: AutoIt [Select]

1. clip_index = 0
2. clip_max = 5
3. clip_1 = Text
4. clip_active = 1
5.  
6. CoordMode, tooltip, screen
7.  
8. goto clip_end_label
9.  
10. OnClipboardChange:
11. if clip_active
12.         addClip(clipboard)
13. clip_active = 1
14. return
15.  
16. addClip(text)
17. {
18.         global
19.         if text =
20.                 return
21.         local old
22.         old := clip_%clip_index%
23.         if  old = %text%
24.                 return
25.         clip_index := mod(clip_index+1,clip_max)
26.         clip_%clip_index% = %text%
27. }
28.  
29. #V::
30. clip_tmp=1
31. v_was=1
32. loop
33. {
34.         Loop %clip_max%
35.         {
36.                 index := mod(clip_max+clip_index-A_Index+1,clip_max)
37.                 element := clip_%index%
38.                 element := ShortenClip(element)
39.                 i1 := A_Index+1
40.                 if element
41.                         ToolTip, %element%, 30+60*(A_Index=clip_tmp), 60*A_Index-50,i1
42.         }
43.         res := GetKeyState("LWin","P")+GetKeyState("RWin","P")
44.         esc__ := GetKeyState("Escape","P")
45.         if (res=0)
46.                 break
47.         if (esc__=1)
48.                 break
49.         res := GetKeyState("V","P")
50.         if res=1
51.                 if v_was=0
52.                 loop
53.                 {
54.                         clip_tmp := 1+mod(clip_tmp,clip_max)
55.                         index := mod(clip_max+clip_index-clip_tmp+1,clip_max)
56.                         element := clip_%index%
57.                         if element
58.                                 break
59.                 }
60.         v_was := res
61.         Sleep, 50
62.         }
63. Loop %clip_max%
64. {
65.         i1 := A_Index+1
66.         ToolTip, , , , i1
67. }
68. if (esc__=1)
69.         return
70. index := mod(clip_max+clip_index-clip_tmp+1,clip_max)
71. clip_active =
72. clipboard := clip_%index%
73. Send, ^v
74. return
75.  
76. ShortenClip(text)
77. {
78.         Loop, Parse, text, `n
79.         {
80.                 StringLeft, outline, A_LoopField, 40
81.                 out = %out%%outline%`n
82.                 if A_Index>2
83.                 {
84.                         out = %out%.....
85.                         break
86.                 }
87.         }
88.         return out
89. }
90.  
91.  
92. clip_end_label: