in reply to Re^4: Perl tk FindNext in a text widget
in thread Perl tk FindNext in a text widget

Sure it does :)

$ perl -d:Modlist fudge AutoLoader 5.72 Carp 1.26 Config Cwd 3.36 DynaLoader 1.13 Encode 2.47 Encode::Alias 2.16 Encode::Byte 2.04 Encode::Config 2.05 Encode::Encoding 2.05 Encode::Unicode 2.07 Exporter 5.66 Exporter::Heavy 5.66 File::Spec 3.33 File::Spec::Unix 3.33 File::Spec::Win32 3.33 Symbol 1.07 Text::Tabs 2012.0818 Tk 804.03 Tk::After 4.008 Tk::Button 4.010 Tk::Clipboard 4.009 Tk::CmdLine 4.007 Tk::Configure 4.009 Tk::Derived 4.011 Tk::Entry 4.018 Tk::Event 4.024 Tk::Event::IO 4.009 Tk::Frame 4.010 Tk::Image 4.011 Tk::MainWindow 4.015 Tk::Scrollbar 4.010 Tk::Submethods 4.005 Tk::Text 4.028 Tk::Toplevel 4.006 Tk::Widget 4.035 Tk::Wm 4.015 XSLoader 0.15 base 2.18 bytes 1.04 constant 1.21 feature 1.20 unicore::Heavy.pl unicore::To::Lower.pl utf8 1.09 utf8_heavy.pl vars 1.02 warnings 1.12 warnings::register 1.02

Replies are listed 'Best First'.
Re^6: Perl tk FindNext in a text widget
by ghosh123 (Monk) on May 31, 2013 at 08:43 UTC

    But while trying to use it for a string "Text" opening the application, the "next" button is not highlighting all the occurences of "Text" one by one. Only highlights the first.
    Whereas "prev" button is working fine.

      But while I repeat myself :)

      Well it works for me, it works for thundergnat -- why are you so special?

        Well , I am noone special.
        Let us consider you are searching the word "have" in that text which thundergnat has inserted in the scrolled text widget.

        For "prev" button, if you keep on clicking on the "prev" button continuously with changing the cursor to any other part of the application, it goes on to highlight the "have" text in backward direction as programmed.

        But for "next", continuous clicking does not go on to highlight the text "have" in forward direction. If you change your mouse cursor and click on the scrolled text area, and then again click on the "next" button then it works. Otherwise not.
        Thanks.