Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
"Enable URL detection" now applies to the whisper panel and individua…
…l whisper windows.
  • Loading branch information
nmbook committed Oct 31, 2017
1 parent 521f418 commit c9d950e
Show file tree
Hide file tree
Showing 2 changed files with 16 additions and 2 deletions.
3 changes: 3 additions & 0 deletions trunk/frmChat.frm
Expand Up @@ -3297,6 +3297,7 @@ Sub Form_Unload(Cancel As Integer)
Call modWarden.WardenCleanup(WardenInstance)

DisableURLDetect frmChat.rtbChat.hWnd
DisableURLDetect frmChat.rtbWhispers.hWnd
UnhookWindowProc frmChat.hWnd

DestroyAllWWs
Expand Down Expand Up @@ -7265,8 +7266,10 @@ Sub ReloadConfig(Optional Mode As Byte = 0)

If Config.UrlDetection Then
EnableURLDetect rtbChat.hWnd
EnableURLDetect rtbWhispers.hWnd
Else
DisableURLDetect rtbChat.hWnd
DisableURLDetect rtbWhispers.hWnd
End If

' reload quotes file
Expand Down
15 changes: 13 additions & 2 deletions trunk/frmWhisperWindow.frm
Expand Up @@ -122,13 +122,19 @@ Private Sub Form_Load()

With frmChat.rtbChat
rtbWhispers.Font.Name = .Font.Name
rtbWhispers.Font.Bold = .Font.Bold
rtbWhispers.Font.Size = .Font.Size
txtSend.Font.Name = .Font.Name
txtSend.Font.Bold = .Font.Bold
txtSend.Font.Size = .Font.Size
End With

#If (COMPILE_DEBUG = 0) Then
HookWindowProc Me.hWnd
#End If

If Config.UrlDetection Then
EnableURLDetect rtbWhispers.hWnd
End If

Form_Resize

' If Me.MyOldWndProc = 0 Then
Expand All @@ -138,6 +144,11 @@ End Sub

Private Sub Form_Unload(Cancel As Integer)
Call DestroyWW(m_imyIndex)

DisableURLDetect rtbWhispers.hWnd
#If (COMPILE_DEBUG = 0) Then
UnhookWindowProc Me.hWnd
#End If
End Sub

Private Sub mnuClose_Click()
Expand Down

0 comments on commit c9d950e

Please sign in to comment.