when double clicking in a comment, fall back to word-based instead

of sexp-based selection

closes PR 12439

collects/framework/private/racket.rkt

@@ -1375,7 +1375,7 @@
              (define token (send text classify-position click-pos))
              (define-values (start end)
                (cond
-                 [(equal? token 'string) (word-based)]
+                 [(memq token '(string comment)) (word-based)]
                  [(and (equal? token 'other)
                        (let-values ([(start end) (send text get-token-range click-pos)])
                          (and start