Skip to content
Permalink
Browse files

Fixed /reply-like commands triggering on other commands

  • Loading branch information...
Davnit committed Aug 12, 2016
1 parent 7b75f09 commit 7fcb7ef442d8deeae3f1de630b8a15fbe4cf186f
Showing with 3 additions and 3 deletions.
  1. +3 −3 trunk/frmChat.frm
@@ -5447,7 +5447,7 @@ Private Sub cboSend_KeyDown(KeyCode As Integer, Shift As Integer)
With cboSend
If (LenB(LastWhisper) > 0) Then
If (Len(.Text) >= 2) Then
If StrComp(Left$(.Text, 2), "/r", vbTextCompare) = 0 Then
If StrComp(Split(.Text)(0), "/r", vbTextCompare) = 0 Then
.SelStart = 0
.SelLength = Len(.Text)
.SelText = "/w " & CleanUsername(LastWhisper, True)
@@ -5456,7 +5456,7 @@ Private Sub cboSend_KeyDown(KeyCode As Integer, Shift As Integer)
End If

If (Len(.Text) >= 6) Then
If StrComp(Left$(.Text, 6), "/reply", vbTextCompare) = 0 Then
If StrComp(Split(.Text)(0), "/reply", vbTextCompare) = 0 Then
.SelStart = 0
.SelLength = Len(.Text)
.SelText = "/w " & CleanUsername(LastWhisper, True)
@@ -5467,7 +5467,7 @@ Private Sub cboSend_KeyDown(KeyCode As Integer, Shift As Integer)

If (LenB(LastWhisperTo) > 0) Then
If (Len(.Text) >= 3) Then
If StrComp(Left$(.Text, 3), "/rw", vbTextCompare) = 0 Then
If StrComp(Split(.Text)(0), "/rw", vbTextCompare) = 0 Then
.SelStart = 0
.SelLength = Len(.Text)

0 comments on commit 7fcb7ef

Please sign in to comment.
You can’t perform that action at this time.