… | |
… | |
133 | $viewer->signal_connect (delete_event => sub { main_quit Gtk2 }); |
133 | $viewer->signal_connect (delete_event => sub { main_quit Gtk2 }); |
134 | $viewer->show_all; |
134 | $viewer->show_all; |
135 | |
135 | |
136 | my $cluster = new cluster; |
136 | my $cluster = new cluster; |
137 | |
137 | |
138 | $cluster->analyse ("/fs/samsung/store-anime-done"); |
138 | #$cluster->analyse ("/fs/samsung/store-anime-done"); |
139 | $cluster->show_all; |
139 | #$cluster->show_all; |
140 | |
140 | |
141 | #$viewer->set (path => "/fs/samsung/store-anime-done/yuumi_kazuaki_-_love_to_hajieki_to_sayonara_to_-_150.jpg"); |
141 | #$viewer->set (path => "/fs/samsung/store-anime-done/yuumi_kazuaki_-_love_to_hajieki_to_sayonara_to_-_150.jpg"); |
142 | #$viewer->set (path => "/root/pix/kvvz.jpg"); |
142 | #$viewer->set (path => "/root/pix/kvvz.jpg"); |
143 | |
143 | |
144 | main Gtk2; |
144 | main Gtk2; |