git.zarb.org Git - booh/blob - bin/booh-classifier

   1 #! /usr/bin/ruby
   2 #
   3 #                         *  BOOH  *
   4 #
   5 # A.k.a 'Best web-album Of the world, Or your money back, Humerus'.
   6 #
   7 # The acronyn sucks, however this is a tribute to Dragon Ball by
   8 # Akira Toriyama, where the last enemy beaten by heroes of Dragon
   9 # Ball is named "Boo". But there was already a free software project
  10 # called Boo, so this one will be it "Booh". Or whatever.
  11 #
  12 #
  13 # Copyright (c) 2004-2006 Guillaume Cottenceau <http://zarb.org/~gc/resource/gc_mail.png>
  14 #
  15 # This software may be freely redistributed under the terms of the GNU
  16 # public license version 2.
  17 #
  18 # You should have received a copy of the GNU General Public License
  19 # along with this program; if not, write to the Free Software
  20 # Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
  21
  22 require 'getoptlong'
  23 require 'tempfile'
  24 require 'thread'
  25
  26 require 'gtk2'
  27
  28 require 'gettext'
  29 include GetText
  30 bindtextdomain("booh")
  31
  32 require 'rexml/document'
  33 include REXML
  34
  35 require 'booh/booh-lib'
  36 include Booh
  37 require 'booh/UndoHandler'
  38
  39
  40 #- options
  41 $options = [
  42     [ '--help',          '-h', GetoptLong::NO_ARGUMENT,       _("Get help message") ],
  43
  44     [ '--verbose-level', '-v', GetoptLong::REQUIRED_ARGUMENT, _("Set max verbosity level (0: errors, 1: warnings, 2: important messages, 3: other messages)") ],
  45 ]
  46
  47 def usage
  48     puts _("Usage: %s [OPTION]...") % File.basename($0)
  49     $options.each { |ary|
  50         printf " %3s, %-15s %s\n", ary[1], ary[0], ary[3]
  51     }
  52 end
  53
  54 def handle_options
  55     parser = GetoptLong.new
  56     parser.set_options(*$options.collect { |ary| ary[0..2] })
  57     begin
  58         parser.each_option do |name, arg|
  59             case name
  60             when '--help'
  61                 usage
  62                 exit(0)
  63
  64             when '--verbose-level'
  65                 $verbose_level = arg.to_i
  66
  67             end
  68         end
  69         puts "args: #{ARGV}"
  70     rescue
  71         puts $!
  72         usage
  73         exit(1)
  74     end
  75 end
  76
  77 def memfree
  78     meminfo = IO.readlines('/proc/meminfo').join
  79     meminfo =~ /MemFree:.*?(\d+)/ or return -1
  80     memfree = $1
  81     meminfo =~ /Buffers:.*?(\d+)/ and buffers = $1
  82     meminfo =~ /Cached:.*?(\d+)/ and cached = $1
  83     return memfree.to_i + buffers.to_i + cached.to_i
  84 end
  85
  86 def read_config
  87     $config = {}
  88     $config_file = File.expand_path('~/.booh-classifier-rc')
  89     if File.readable?($config_file)
  90         $xmldoc = REXML::Document.new(File.new($config_file))
  91         $xmldoc.root.elements.each { |element|
  92             txt = element.get_text
  93             if txt
  94                 if txt.value =~ /~~~/
  95                     $config[element.name] = txt.value.split(/~~~/)
  96                 else
  97                     $config[element.name] = txt.value
  98                 end
  99             elsif element.elements.size == 0
 100                 $config[element.name] = ''
 101             else
 102                 $config[element.name] = {}
 103                 element.each { |chld|
 104                     txt = chld.get_text
 105                     $config[element.name][chld.name] = txt ? txt.value : nil
 106                 }
 107             end
 108         }
 109     end
 110     $config['video-viewer'] ||= '/usr/bin/mplayer %f'
 111     $config['preload-distance'] ||= 5
 112     $config['cache-memory-use'] ||= 'memfree_50%'
 113     if $config['cache-memory-use'] =~ /memfree_(\d+)/
 114         $config['cache-memory-use-figure'] = memfree*$1.to_f/100
 115     else
 116         $config['cache-memory-use-figure'] = $config['cache-memory-use'].to_i
 117     end
 118     msg 2, "Set cache memory use figure: #{$config['cache-memory-use-figure']} kB"
 119 end
 120
 121 def check_config
 122     if !system("which identify >/dev/null 2>/dev/null")
 123         show_popup($main_window, utf8(_("The program 'identify' is needed to get images sizes and EXIF data. Please install it.
 124 It is generally available with the 'ImageMagick' software package.")), { :pos_centered => true })
 125     end
 126     missing = %w(transcode mencoder).delete_if { |prg| system("which #{prg} >/dev/null 2>/dev/null") }
 127     if missing != []
 128         show_popup($main_window, utf8(_("The following program(s) are needed to handle videos: '%s'. Videos will be ignored.") % missing.join(', ')), { :pos_centered => true })
 129     end
 130
 131     viewer_binary = $config['video-viewer'].split.first
 132     if viewer_binary && !File.executable?(viewer_binary)
 133         show_popup($main_window, utf8(_("The configured video viewer seems to be unavailable.
 134 You should fix this in Edit/Preferences so that you can view videos.
 135
 136 Problem was: '%s' is not an executable file.
 137 Hint: don't forget to specify the full path to the executable,
 138 e.g. '/usr/bin/mplayer' is correct but 'mplayer' only is not.") % viewer_binary), { :pos_centered => true, :not_transient => true })
 139     end
 140 end
 141
 142 def write_config
 143     ios = File.open($config_file, "w")
 144     $xmldoc = Document.new "<booh-classifier-rc version='#{$VERSION}'/>"
 145     $xmldoc << XMLDecl.new(XMLDecl::DEFAULT_VERSION, $CURRENT_CHARSET)
 146     $config.each_pair { |key, value|
 147         elem = $xmldoc.root.add_element key
 148         if value.is_a? Hash
 149             $config[key].each_pair { |subkey, subvalue|
 150                 subelem = elem.add_element subkey
 151                 subelem.add_text subvalue.to_s
 152             }
 153         elsif value.is_a? Array
 154             elem.add_text value.join('~~~')
 155         else
 156             if !value
 157                 elem.remove
 158             else
 159                 elem.add_text value.to_s
 160             end
 161         end
 162     }
 163     $xmldoc.write(ios, 0)
 164     ios.close
 165 end
 166
 167 def save_undo(name, closure, *params)
 168     UndoHandler.save_undo(name, closure, [ *params ])
 169     $undo_tb.sensitive = $undo_mb.sensitive = true
 170     $redo_tb.sensitive = $redo_mb.sensitive = false
 171 end
 172
 173 def get_mem
 174     IO.readlines('/proc/self/status').join =~ /VmRSS.*?(\d+)\s*kB/
 175     puts $1
 176     return $1.to_i
 177 end
 178
 179 def show_mem(*txt)
 180     txt.length > 0 and print txt[0]
 181     puts get_mem
 182 end
 183
 184 class Entry
 185     @@thumbnails_height = 64
 186     @@max_height = nil
 187     def Entry.thumbnails_height
 188         return @@thumbnails_height
 189     end
 190
 191     attr_accessor :path, :type, :button
 192
 193     def initialize(path, type)
 194         @path = path
 195         @type = type
 196         if @@max_height.nil?
 197             @@max_height = $main_window.root_window.size[1]
 198         end
 199         @protect_cleanup = Mutex.new
 200     end
 201
 202     def pixbuf_full
 203         @protect_cleanup.synchronize {
 204             if @pixbuf_full.nil?
 205                 puts ">>> pixbuf_full #{path}"
 206                 load_into_pixbuf_full
 207             end
 208             return @pixbuf_full
 209         }
 210     end
 211     def free_pixbuf_full
 212         @protect_cleanup.synchronize {
 213             if @pixbuf_full.nil?
 214                 return false
 215             else
 216                 puts ">>> free_pixbuf_full #{path}"
 217                 @pixbuf_full = nil
 218                 return true
 219             end
 220         }
 221     end
 222     def pixbuf_main(width, height)
 223         @protect_cleanup.synchronize {
 224             if @pixbuf_main.nil? || width != @width || height != @height
 225                 puts ">>> pixbuf_main #{path}"
 226                 @width = width
 227                 @height = height
 228                 load_into_pixbuf_full  #- make sure it is loaded
 229                 if @pixbuf_full.width.to_f / @pixbuf_full.height > width.to_f / height
 230                     resized_height = @pixbuf_full.height * (width.to_f/@pixbuf_full.width)
 231                     if @pixbuf_full.width > width || @pixbuf_full.height > resized_height
 232                         @pixbuf_main = @pixbuf_full.scale(width, resized_height, Gdk::Pixbuf::INTERP_BILINEAR)
 233                     else
 234                         @pixbuf_main = @pixbuf_full
 235                     end
 236                 else
 237                     resized_width = @pixbuf_full.width * (height.to_f/@pixbuf_full.height)
 238                     if @pixbuf_full.width > resized_width || @pixbuf_full.height > height
 239                         @pixbuf_main = @pixbuf_full.scale(resized_width, height, Gdk::Pixbuf::INTERP_BILINEAR)
 240                     else
 241                         @pixbuf_main = @pixbuf_full
 242                     end
 243                 end
 244             end
 245             return @pixbuf_main
 246         }
 247     end
 248     def free_pixbuf_main
 249         @protect_cleanup.synchronize {
 250             if @pixbuf_main.nil?
 251                 return false
 252             else
 253                 puts ">>> free_pixbuf_main #{path}"
 254                 @pixbuf_main = nil
 255                 return true
 256             end
 257         }
 258     end
 259     def pixbuf_thumbnail
 260         return @protect_cleanup.synchronize {
 261             if @pixbuf_thumbnail.nil?
 262                 puts ">>> pixbuf_thumbnail #{path}"
 263                 load_into_pixbuf_full  #- make sure it is loaded
 264                 @pixbuf_thumbnail = @pixbuf_full.scale(@pixbuf_full.width * (@@thumbnails_height.to_f/@pixbuf_full.height), @@thumbnails_height, Gdk::Pixbuf::INTERP_BILINEAR)
 265             end
 266             return @pixbuf_thumbnail
 267         }
 268     end
 269
 270     private
 271     def load_into_pixbuf_full
 272         if @pixbuf_full.nil?
 273             puts ">>> load_into_pixbuf_full #{path}"
 274             begin
 275                 @pixbuf_full = Gdk::Pixbuf.new(@path)
 276             rescue Gdk::PixbufError
 277                 puts "Cannot load #{@path}: #{$!}"
 278                 return
 279             end
 280             if @pixbuf_full
 281                 angle = guess_rotate(path)
 282                 if angle != 0
 283                     puts ">>> load_into_pixbuf_full #{path} => rotate #{angle}"
 284                     @pixbuf_full = rotate_pixbuf(@pixbuf_full, angle)
 285                 end
 286                 if @pixbuf_full.height > @@max_height
 287                     #- save a lot of memory, don't store in actual full size
 288                     @pixbuf_full = @pixbuf_full.scale(@pixbuf_full.width * (@@max_height.to_f/@pixbuf_full.height), @@max_height, Gdk::Pixbuf::INTERP_BILINEAR)
 289                 end
 290             end
 291         end
 292     end
 293
 294     def to_s
 295         @path
 296     end
 297 end
 298
 299 class MainView < Gtk::DrawingArea
 300
 301     def initialize
 302         super()
 303         signal_connect('expose-event') { draw }
 304         signal_connect('configure-event') { update_shown; GC.start }
 305         signal_connect('realize') {
 306             @preloader = Thread.new {
 307                 #- background preloading
 308                 while true
 309                     puts "background main preloading triggered..."
 310                     if ! @index.nil?
 311                         w, h = window.size
 312                         for j in 1 .. $config['preload-distance']
 313                             i = @index + j
 314                             if i < $allentries.size
 315                                 $allentries[i].pixbuf_main(w, h)
 316                             end
 317                             i = @index - j
 318                             if i >= 0
 319                                 $allentries[i].pixbuf_main(w, h)
 320                             end
 321                             GC.start
 322                             mem = get_mem
 323                             if mem > $config['cache-memory-use-figure']
 324                                 puts "too much RSS, stopping main preloading"
 325                                 break
 326                             end
 327                         end
 328                         check_memory_free_cache_if_needed
 329                     end
 330                     Thread.stop
 331                 end
 332             }
 333             @preloader.priority = -2
 334         }
 335     end
 336
 337     def set_shown_entry(index)
 338         if index == @index
 339             return
 340         end
 341         @index = index
 342         if index.nil?
 343             @entry = nil
 344         else
 345             @entry = $allentries[index]
 346         end
 347         update_shown
 348         #- should "freeze" or something to prevent blinking
 349         window.clear
 350         draw
 351         @preloader.run
 352     end
 353
 354     def get_shown_entry
 355         return @index
 356     end
 357
 358     def update_shown
 359         if @entry
 360             width, height = window.size
 361             @pixbuf = @entry.pixbuf_main(width, height)
 362             if @pixbuf.width == width
 363                 @xpos = 0
 364                 @ypos = (height-@pixbuf.height)/2
 365             else
 366                 @xpos = (width-@pixbuf.width)/2
 367                 @ypos = 0
 368             end
 369             @preloader.run
 370         else
 371             @pixbuf = nil
 372         end
 373     end
 374
 375     def draw
 376         if @pixbuf
 377             window.draw_pixbuf(nil, @pixbuf, 0, 0, @xpos, @ypos, -1, -1, Gdk::RGB::DITHER_NONE, -1, -1)
 378         end
 379     end
 380
 381 end
 382
 383 def check_memory_free_cache_if_needed
 384     GC.start
 385     mem = get_mem
 386     i = $mainview.get_shown_entry
 387     puts "mem: #{mem} index: #{i}"
 388     return if i.nil?
 389     ($allentries.size - 1).downto(1) { |j|
 390         if mem < $config['cache-memory-use-figure'] * 2 / 3
 391             break
 392         end
 393         index = i + j
 394         puts "too much RSS, freeing full size of #{i+j} and #{i-j}..."
 395         freedsomething = false
 396         if i + j < $allentries.size
 397             freedsomething |= $allentries[i+j].free_pixbuf_full
 398         end
 399         if i - j > 0
 400             freedsomething |= $allentries[i-j].free_pixbuf_full
 401         end
 402         if freedsomething
 403             GC.start
 404             mem = get_mem
 405             puts "\tmem now: #{mem}"
 406         end
 407     }
 408 end
 409
 410 def autoscroll_if_needed(button)
 411     xpos_left = button.allocation.x
 412     xpos_right = button.allocation.x + button.allocation.width
 413     hadj = $imagesline_sw.hadjustment
 414     current_minx_visible = hadj.value
 415     current_maxx_visible = hadj.value + hadj.page_size
 416     if xpos_left < current_minx_visible
 417         #- autoscroll left
 418         newval = hadj.value - (current_minx_visible - xpos_left)
 419         hadj.value = newval
 420         button.queue_draw  #- TOREMOVE: the visual focus is displayed incorrectly
 421     elsif xpos_right > current_maxx_visible
 422         #- autoscroll right
 423         newval = hadj.value + (xpos_right - current_maxx_visible)
 424         if newval > hadj.upper - hadj.page_size
 425             newval = hadj.upper - hadj.page_size
 426         end
 427         hadj.value = newval
 428         button.queue_draw  #- TOREMOVE: the visual focus is displayed incorrectly
 429     end
 430 end
 431
 432 def show_entries
 433     e = Thread.new {
 434         t1 = Time.now
 435         show_mem
 436         ctid = $statusbar.get_context_id('images loading')
 437         $statusbar.push(ctid, utf8(_("Loading images...")))
 438         tooltips = Gtk::Tooltips.new
 439         counter = 0
 440         $allentries.each_with_index { |entry, i|
 441             if entry.pixbuf_full
 442                 entry.pixbuf_thumbnail
 443                 gtk_thread_protect(proc { |i|
 444                                        entry = $allentries[i]
 445                                        entry.button = Gtk::Button.new.set_image(img = Gtk::Image.new(entry.pixbuf_thumbnail))
 446                                        tooltips.set_tip(entry.button, File.basename(entry.path).gsub(/\.[^.]+$/, ''), nil)
 447                                        $imagesline.pack_start(entry.button.show_all, false, false)
 448                                        entry.button.signal_connect('clicked') { $mainview.set_shown_entry(i) }
 449                                        entry.button.signal_connect('focus-in-event') { entry.button.clicked; autoscroll_if_needed(entry.button) }
 450                                        if i == 0
 451                                            entry.button.grab_focus
 452                                        end
 453                                    }, i)
 454                 if i % 4 == 0
 455                     check_memory_free_cache_if_needed
 456                 end
 457                 counter += 1
 458             end
 459         }
 460         check_memory_free_cache_if_needed
 461         $statusbar.pop(ctid)
 462         $statusbar.push(0, utf8(_("%d images loaded.") % counter))
 463         puts "time: #{Time.now - t1}"
 464     }
 465     e.priority = -1
 466 end
 467
 468 def open_dir(path)
 469     path = File.expand_path(path.sub(%r|/$|, ''))
 470     examined_dirs = `find '#{path}' -type d -follow`.sort.collect { |v| v.chomp }
 471     #- validate first
 472     examined_dirs.each { |dir|
 473         if dir =~ /'/
 474             show_popup($main_window, utf8(_("Source directory or sub-directories can't contain a single-quote character, sorry: %s") % dir))
 475         end
 476         Dir.entries(dir).each { |file|
 477             if file =~ /['"\[\]]/
 478                 show_popup($main_window, utf8(_("Files can't contain any of the characters ', \", [ or ], sorry: %s") % "#{dir}/#{file}"))
 479             end
 480         }
 481     }
 482     #- scan for populate second
 483     $allentries = []
 484     examined_dirs.each { |dir|
 485         if File.basename(dir) =~ /^\./
 486             msg 1, _("Ignoring directory %s, begins with a dot (indicating a hidden directory)") % dir
 487             next
 488         end
 489         Dir.entries(dir).each { |file|
 490             type = entry2type(file)
 491             if type
 492 # && $allentries.size < 5
 493                 $allentries << Entry.new(File.join(dir, file), type)
 494             end
 495         }
 496     }
 497     show_entries
 498 end
 499
 500 def open_dir_popup
 501     fc = Gtk::FileChooserDialog.new(utf8(_("Specify the directory to work with")),
 502                                     nil,
 503                                     Gtk::FileChooser::ACTION_SELECT_FOLDER,
 504                                     nil,
 505                                     [Gtk::Stock::OPEN, Gtk::Dialog::RESPONSE_ACCEPT], [Gtk::Stock::CANCEL, Gtk::Dialog::RESPONSE_CANCEL])
 506     fc.transient_for = $main_window
 507     ok = false
 508     while !ok
 509         if fc.run == Gtk::Dialog::RESPONSE_ACCEPT
 510             msg = open_dir(fc.filename)
 511             if msg
 512                 show_popup(fc, msg)
 513                 ok = false
 514             else
 515                 ok = true
 516             end
 517         else
 518             ok = true
 519         end
 520     end
 521     fc.destroy
 522 end
 523
 524 def gtk_thread_protect(proc, *params)
 525     if Thread.current == Thread.main
 526         proc.call(*params)
 527     else
 528         $protect_gtk_pending_calls.synchronize {
 529             $gtk_pending_calls << [ proc, params ]
 530         }
 531     end
 532 end
 533
 534 def gtk_thread_flush
 535     $protect_gtk_pending_calls.synchronize {
 536         if $gtk_pending_calls.size > 0
 537             elem = $gtk_pending_calls.shift
 538             elem[0].call(*elem[1])
 539         end
 540     }
 541 end
 542
 543 def try_quit(*options)
 544     Gtk.main_quit
 545 end
 546
 547 def create_menubar
 548
 549     #- menu
 550     mb = Gtk::MenuBar.new
 551
 552     filemenu = Gtk::MenuItem.new(utf8(_("_File")))
 553     filesubmenu = Gtk::Menu.new
 554     filesubmenu.append(open      = Gtk::ImageMenuItem.new(Gtk::Stock::OPEN))
 555     filesubmenu.append(            Gtk::SeparatorMenuItem.new)
 556     filesubmenu.append($execute  = Gtk::ImageMenuItem.new(Gtk::Stock::EXECUTE).set_sensitive(false))
 557     filesubmenu.append(            Gtk::SeparatorMenuItem.new)
 558     filesubmenu.append(quit      = Gtk::ImageMenuItem.new(Gtk::Stock::QUIT))
 559     filemenu.set_submenu(filesubmenu)
 560     mb.append(filemenu)
 561
 562     open.signal_connect('activate') { open_dir_popup }
 563     $execute.signal_connect('activate') { execute }
 564     quit.signal_connect('activate') { try_quit }
 565
 566     editmenu = Gtk::MenuItem.new(utf8(_("_Edit")))
 567     editsubmenu = Gtk::Menu.new
 568     editsubmenu.append($undo_mb = Gtk::ImageMenuItem.new(Gtk::Stock::UNDO).set_sensitive(false))
 569     editsubmenu.append($redo_mb = Gtk::ImageMenuItem.new(Gtk::Stock::REDO).set_sensitive(false))
 570     editsubmenu.append(           Gtk::SeparatorMenuItem.new)
 571     editsubmenu.append(prefs    = Gtk::ImageMenuItem.new(Gtk::Stock::PREFERENCES))
 572     editmenu.set_submenu(editsubmenu)
 573     mb.append(editmenu)
 574
 575     $undo_mb.signal_connect('activate') { perform_undo }
 576     $redo_mb.signal_connect('activate') { perform_redo }
 577     prefs.signal_connect('activate') { preferences }
 578
 579     helpmenu = Gtk::MenuItem.new(utf8(_("_Help")))
 580     helpsubmenu = Gtk::Menu.new
 581     helpsubmenu.append(tutos = Gtk::ImageMenuItem.new(utf8(_("Online tutorials (opens a web-browser)"))))
 582     tutos.image = Gtk::Image.new("#{$FPATH}/images/stock-web-16.png")
 583     helpsubmenu.append(Gtk::SeparatorMenuItem.new)
 584     helpsubmenu.append(about = Gtk::ImageMenuItem.new(Gtk::Stock::ABOUT))
 585     helpmenu.set_submenu(helpsubmenu)
 586     mb.append(helpmenu)
 587
 588     tutos.signal_connect('activate') { open_url('http://booh.org/tutorial.html') }
 589     about.signal_connect('activate') { share }
 590
 591
 592     #- no toolbar, to save height
 593
 594     return mb
 595 end
 596
 597 def create_main_window
 598
 599     mb = create_menubar
 600
 601     main_vbox = Gtk::VBox.new(false, 0)
 602     main_vbox.pack_start(mb, false, false)
 603     main_vbox.pack_start($mainview = MainView.new, true, true)
 604     $imagesline_sw = Gtk::ScrolledWindow.new(nil, nil)
 605     $imagesline_sw.set_policy(Gtk::POLICY_ALWAYS, Gtk::POLICY_NEVER)
 606     $imagesline_sw.add_with_viewport($imagesline = Gtk::HBox.new(false, 0))
 607     main_vbox.pack_start($imagesline_sw, false, false)
 608     main_vbox.pack_end($statusbar = Gtk::Statusbar.new, false, false)
 609
 610     $imagesline.set_size_request(-1, Entry.thumbnails_height + $imagesline_sw.hscrollbar.size_request[1])
 611
 612     $main_window = Gtk::Window.new
 613     $main_window.add(main_vbox)
 614     $main_window.signal_connect('delete-event') {
 615         try_quit({ :disallow_cancel => true })
 616     }
 617
 618     #- read/save size and position of window
 619     if $config['pos-x'] && $config['pos-y']
 620         $main_window.move($config['pos-x'].to_i, $config['pos-y'].to_i)
 621     else
 622         $main_window.window_position = Gtk::Window::POS_CENTER
 623     end
 624     msg 3, "size: #{$config['width']}x#{$config['height']}"
 625     $main_window.set_default_size(($config['width'] || 700).to_i, ($config['height'] || 600).to_i)
 626     $main_window.signal_connect('configure-event') {
 627         msg 3, "configure: pos: #{$main_window.window.root_origin.inspect} size: #{$main_window.window.size.inspect}"
 628         x, y = $main_window.window.root_origin
 629         width, height = $main_window.window.size
 630         $config['pos-x'] = x
 631         $config['pos-y'] = y
 632         $config['width'] = width
 633         $config['height'] = height
 634         false
 635     }
 636
 637     $protect_gtk_pending_calls = Mutex.new
 638     $gtk_pending_calls = []
 639     Gtk.timeout_add(50) {
 640         gtk_thread_flush
 641         true
 642     }
 643
 644     Gtk.timeout_add(10000) {
 645         show_mem
 646         true
 647     }
 648
 649     $main_window.show_all
 650 end
 651
 652
 653 Thread.abort_on_exception = true
 654 read_config
 655 Gtk.init
 656
 657
 658 #- Gdk::Pixbuf#rotate memory leak check (in ruby-gnome2 <= 0.16.0)
 659 pb = Gdk::Pixbuf.new("#{$FPATH}/images/logo.png")
 660 1.upto(5) { pb = pb.rotate(Gdk::Pixbuf::ROTATE_CLOCKWISE) }
 661 GC.start
 662 mem = get_mem
 663 1.upto(5) { pb = pb.rotate(Gdk::Pixbuf::ROTATE_CLOCKWISE) }
 664 GC.start
 665 mem2 = get_mem
 666 if mem2 != mem
 667     puts _("Gdk::Pixbuf#scale memory leak detected (this is normal with unpatched ruby-gnome2 <= 0.16.0). Application would slow down to a crawl, won't proceed.")
 668     exit 1
 669 end
 670
 671
 672 create_main_window
 673 check_config
 674
 675 if ARGV[0]
 676     open_dir(ARGV[0])
 677 end
 678 Gtk.main
 679
 680 write_config