watobo 0.9.12 → 0.9.13

data/lib/watobo/gui/html_viewer.rb

@@ -0,0 +1,309 @@
+# .
+# html_viewer.rb
+# 
+# Copyright 2013 by siberas, http://www.siberas.de
+# 
+# This file is part of WATOBO (Web Application Tool Box)
+#        http://watobo.sourceforge.com
+# 
+# WATOBO is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation version 2 of the License.
+# 
+# WATOBO is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License
+# along with WATOBO; if not, write to the Free Software
+# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
+# .
+require 'fox16/scintilla'
+
+# @private 
+module Watobo#:nodoc: all
+  module Gui
+    class HTMLViewer < FXScintilla
+      attr_accessor :max_len
+      
+      def search_text(text, &block)
+        matches = []
+        setTargetStart 0
+        setTargetEnd getLength
+        while searchInTarget(text.length, text) >= 0
+         pos = getTargetStart
+         setTargetStart pos+1
+        setTargetEnd getLength
+        yield pos if block_given?
+        matches << pos
+         end
+         
+         matches
+      end      
+      
+      
+      def initialize(owner, opts)
+        super(owner, nil, 0, opts)
+        self.setLexer FXScintilla::SCLEX_HTML
+        self.setCodePage(FXScintilla::SC_CP_UTF8)
+        self.styleSetFont(FXScintilla::STYLE_DEFAULT, "fixed")
+        self.styleSetSize(FXScintilla::STYLE_DEFAULT, 9)
+        self.styleClearAll
+        self.styleSetFore(FXScintilla::SCE_P_DEFAULT, FXRGB(0x80, 0x80, 0x80) & 0xffffff)
+        self.styleSetFore(FXScintilla::SCE_P_COMMENTLINE, FXRGB(0x00, 0x7f, 0x00) & 0xffffff)
+        self.styleSetFore(FXScintilla::SCE_P_NUMBER, FXRGB(0x00, 0x7f, 0x7f) & 0xffffff)
+        self.styleSetFore(FXScintilla::SCE_P_STRING, FXRGB(0x7f, 0x00, 0x7f) & 0xffffff)
+        self.styleSetFore(FXScintilla::SCE_P_CHARACTER, FXRGB(0x7f, 0x00, 0x7f) & 0xffffff)
+        self.styleSetFore(FXScintilla::SCE_P_WORD, FXRGB(0x00, 0x00, 0x7f) & 0xffffff)
+        self.styleSetBold(FXScintilla::SCE_P_WORD, true)
+        self.styleSetFore(FXScintilla::SCE_P_TRIPLE, FXRGB(0x7f, 0x00, 0x00) & 0xffffff)
+        self.styleSetFore(FXScintilla::SCE_P_TRIPLEDOUBLE, FXRGB(0x7f, 0x00, 0x00) & 0xffffff)
+        self.styleSetFore(FXScintilla::SCE_P_CLASSNAME, FXRGB(0x00, 0x00, 0xff) & 0xffffff)
+        self.styleSetBold(FXScintilla::SCE_P_CLASSNAME, true)
+        self.styleSetFore(FXScintilla::SCE_P_DEFNAME, FXRGB(0x00, 0x7f, 0x7f) & 0xffffff)
+        self.styleSetBold(FXScintilla::SCE_P_DEFNAME, true)
+        self.styleSetBold(FXScintilla::SCE_P_OPERATOR, true)
+        self.styleSetFore(FXScintilla::SCE_P_IDENTIFIER, FXRGB(0x7f, 0x7f, 0x7f) & 0xffffff)
+        self.styleSetFore(FXScintilla::SCE_P_COMMENTBLOCK, FXRGB(0x7f, 0x7f, 0x7f) & 0xffffff)
+        self.styleSetFore(FXScintilla::SCE_P_STRINGEOL, FXRGB(0x00, 0x00, 0x00) & 0xffffff)
+        self.styleSetBack(FXScintilla::SCE_P_STRINGEOL, FXRGB(0xe0, 0xc0, 0xe0) & 0xffffff)
+        self.styleSetEOLFilled(FXScintilla::SCE_P_STRINGEOL, true)
+        self.styleSetFore(34, FXRGB(0x00, 0x00, 0xff) & 0xffffff)
+        self.styleSetBold(34, true)
+        self.styleSetFore(35, FXRGB(0xff, 0x00, 0x00) & 0xffffff)
+        self.styleSetBold(35, true)
+        @max_len = 0
+      end
+    end
+    
+     class HTMLViewerFrame < FXVerticalFrame
+
+      attr_accessor :max_len
+
+      def setText(text, prefs={})
+       
+        normalized_text = "- empty -"
+        if text.is_a? String
+        normalized_text = text.gsub(/[^[:print:]]/,".")
+        elsif text.respond_to? :has_body?
+          unless text.body.nil? or text.body.empty?
+          body = text.body.strip      
+          if text.content_type =~ /(html|xml)/
+            doc = Nokogiri::XML(body, &:noblanks)
+            fbody = doc.to_xhtml( indent:3, indent_text:" ")
+            normalized_text = fbody.to_s          
+          else
+            normalized_text = body
+          end
+        end
+        elsif text.is_a? Array        
+        normalized_text = text.join         
+        end
+        
+         @text = normalized_text
+       
+       # puts normalized_text
+        @html_viewer.setText(@text)
+       #@html_viewer.encodedFromUTF8(normalized_text)
+        
+        @match_pos_label.text = "0/0"
+        @match_pos_label.textColor = 'grey'
+        
+         @html_viewer.setTargetStart 0
+         @html_viewer.setTargetEnd @html_viewer.getLength
+
+        applyFilter() if @auto_apply_cbtn.checked?
+      end
+
+      def highlight(pattern)
+        highlightPattern(pattern)
+      end
+
+      def getText
+        @html_viewer.to_s
+      end
+
+      def initialize(owner, opts)
+        super(owner, opts)
+
+        @text_matches = []
+
+        @style = 2 # default style
+        @text = ''
+        @max_len = 5000
+        @filter_mode = SEL_TYPE_HIGHLIGHT
+        @match_pos = 0
+       
+        text_view_header = FXHorizontalFrame.new(self, :opts => LAYOUT_FILL_X|LAYOUT_SIDE_BOTTOM|LAYOUT_FIX_HEIGHT,:height => 24, :padding => 0)
+
+        #@auto_apply_cbtn.connect(SEL_COMMAND, method(:onInterceptChanged))
+
+        pmatch_btn = FXButton.new(text_view_header, "<", nil, nil, 0, FRAME_RAISED|LAYOUT_FILL_Y)
+        @match_pos_label = FXLabel.new(text_view_header, "0/0", :opts => LAYOUT_FILL_Y)
+        @match_pos_label.textColor = 'grey'
+        pmatch_btn.connect(SEL_COMMAND) { gotoPrevMatch() }
+        nmatch_btn = FXButton.new(text_view_header, ">", nil, nil, 0, FRAME_RAISED|LAYOUT_FILL_Y)
+        nmatch_btn.connect(SEL_COMMAND) { gotoNextMatch() }
+
+        #  @filter_text = FXTextField.new(text_view_header, 10,
+        #  :target => @filter_dt, :selector => FXDataTarget::ID_VALUE,
+        #  :opts => FRAME_SUNKEN|FRAME_THICK|LAYOUT_FILL_X|LAYOUT_FILL_Y)
+
+        @filter_text = FXComboBox.new(text_view_header, 20, nil, 0, FRAME_SUNKEN|FRAME_THICK|LAYOUT_SIDE_TOP|LAYOUT_FILL_X)
+        @filter_text.connect(SEL_COMMAND){
+          applyFilter()
+          addFilterHistory()
+        }
+
+        @filter_text.connect(SEL_CHANGED) {
+          applyFilter()
+        }
+
+       @auto_apply_cbtn = FXCheckButton.new(text_view_header, "auto-apply", nil, 0, ICON_BEFORE_TEXT|LAYOUT_SIDE_TOP|LAYOUT_RIGHT|LAYOUT_FILL_Y)
+       
+
+        text_box_frame = FXVerticalFrame.new(self, LAYOUT_FILL_X|LAYOUT_FILL_Y|FRAME_SUNKEN|FRAME_THICK, :padding => 0)
+
+        @html_viewer = HTMLViewer.new(text_box_frame, :opts => LAYOUT_FILL_X|LAYOUT_FILL_Y)
+        #searchflags = FXScintilla::SCFIND_WHOLEWORD|FXScintilla::SCFIND_MATCHCASE|FXScintilla::SCFIND_REGEXP|FXScintilla::SCFIND_WORDSTART
+         @searchflags = FXScintilla::SCFIND_REGEXP
+          @html_viewer.setSearchFlags @searchflags
+      
+        addHotkeyHandler(@html_viewer)
+        addHotkeyHandler(@filter_text)
+
+       # @filter_dt.connect(SEL_COMMAND) { applyFilter() }
+
+      end
+
+      def applyFilter
+        pattern = @filter_text.text
+        return if pattern.empty?
+         
+        @match_pos_label.text = "0/0"
+        @match_pos_label.textColor = 'grey'
+      
+        @text_matches = @html_viewer.search_text(pattern)
+
+        
+        if @text_matches.length > 0
+          @match_pos_label.textColor = 'black'
+          @match_pos_label.text = "1/#{@text_matches.length}"
+          
+          show_match_pos(0)
+        end
+
+      end
+
+      private
+      
+      def show_match_pos(match_pos=nil)
+        
+        pos = match_pos.nil? ? 0 : match_pos
+        return false if @text_matches.empty?
+        return false if pos > @text_matches.length-1
+        @match_pos = pos 
+        pattern = @filter_text.text
+         text_pos = @text_matches[pos]
+         @html_viewer.gotoPos text_pos
+          @html_viewer.setSel text_pos, text_pos+pattern.length
+      end
+      
+      def show_next
+        if @match_pos < @text_matches.length-1
+        @match_pos += 1 
+        show_match_pos @match_pos
+        return true
+        end
+        return false
+      end
+      
+      def show_prev
+        if @match_pos > 0
+        @match_pos -= 1 
+        show_match_pos @match_pos
+        return true
+        end
+        return false        
+      end
+      
+      
+      def addFilterHistory()
+        text = @filter_text.text
+        return true if text == ''
+        has_item = false
+        @filter_text.each do |item, data|
+          has_item = true if data == text
+        end
+        @filter_text.appendItem(text, text) unless has_item == true
+        @filter_text.numVisible = @filter_text.numItems
+      end
+
+      def resetFilter
+        @match_pos_label.text = "0/0"
+        @match_pos_label.textColor = 'grey'
+        @filter_text.text = ''
+      end
+
+      def addHotkeyHandler(widget)
+        @ctrl_pressed = false
+
+        widget.connect(SEL_KEYPRESS) { |sender, sel, event|
+          state = false
+          @ctrl_pressed = true if event.code == KEY_Control_L or event.code == KEY_Control_R
+          #  @shift_pressed = true if @ctrl_pressed and ( event.code == KEY_Shift_L or event.code == KEY_Shift_R )
+          if event.code == KEY_Return
+            highlight(@filter_text.text)
+            state = true # special handling of KEY_Return, because we don't want a linebreak in textbox.
+          end
+
+          if event.code == KEY_F1
+
+            unless event.moved?
+              FXMenuPane.new(self) do |menu_pane|
+                FXMenuCaption.new(menu_pane, "Hotkeys:")
+                FXMenuSeparator.new(menu_pane)
+                [ "<ctrl-r> - Reset Filter",
+                  "<ctrl-n> - Goto Next",
+                  "<ctrl-shift-n> - Goto Prev"
+                ].each do |hk|
+                  FXMenuCaption.new(menu_pane, hk).backColor = 'yellow'
+                end
+
+                menu_pane.create
+                menu_pane.popup(nil, event.root_x, event.root_y)
+                app.runModalWhileShown(menu_pane)
+              end
+
+            end
+          end
+
+          if @ctrl_pressed
+            case event.code
+            when KEY_n
+              if show_next
+                 @match_pos_label.text = "#{@match_pos+1}/#{@text_matches.length}"
+              end
+            when KEY_N
+               if show_prev
+                 @match_pos_label.text = "#{@match_pos+1}/#{@text_matches.length}"
+               end
+            when KEY_r
+              resetFilter()
+
+            end
+          end
+          state
+        }
+
+        widget.connect(SEL_KEYRELEASE) { |sender, sel, event|
+          @ctrl_pressed = false if event.code == KEY_Control_L or event.code == KEY_Control_R
+          false
+        }
+      end
+
+    end
+  end
+end
+

data/lib/watobo/gui/intercept_filter_dialog.rb

@@ -1,7 +1,7 @@
 # .
 # intercept_filter_dialog.rb
 # 
-# Copyright 2012 by siberas, http://www.siberas.de
+# Copyright 2013 by siberas, http://www.siberas.de
 # 
 # This file is part of WATOBO (Web Application Tool Box)
 #        http://watobo.sourceforge.com
@@ -19,7 +19,8 @@
 # along with WATOBO; if not, write to the Free Software
 # Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
 # .
-module Watobo
+# @private 
+module Watobo#:nodoc: all
   module Gui
     class InterceptFilterDialog < FXDialogBox
 

data/lib/watobo/gui/interceptor_gui.rb

@@ -1,7 +1,7 @@
 # .
 # interceptor_gui.rb
 # 
-# Copyright 2012 by siberas, http://www.siberas.de
+# Copyright 2013 by siberas, http://www.siberas.de
 # 
 # This file is part of WATOBO (Web Application Tool Box)
 #        http://watobo.sourceforge.com
@@ -19,7 +19,8 @@
 # along with WATOBO; if not, write to the Free Software
 # Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
 # .
-module Watobo
+# @private 
+module Watobo#:nodoc: all
   module Gui
     class InterceptEditor < FXVerticalFrame
       
@@ -664,9 +665,9 @@ module Watobo
               if not response.nil?
                 response[:response].clear
                 new_response = @responsebox.to_response(:update_content_length => true)
-                puts new_response.class
+                #puts new_response.class
                 response[:response].concat new_response
-                puts new_response
+                #puts new_response
                 response[:thread].run
                 @responsebox.clear
                 @response_list.shift

data/lib/watobo/gui/interceptor_settings_dialog.rb

@@ -1,7 +1,7 @@
 # .
 # interceptor_settings_dialog.rb
 # 
-# Copyright 2012 by siberas, http://www.siberas.de
+# Copyright 2013 by siberas, http://www.siberas.de
 # 
 # This file is part of WATOBO (Web Application Tool Box)
 #        http://watobo.sourceforge.com
@@ -19,7 +19,8 @@
 # along with WATOBO; if not, write to the Free Software
 # Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
 # .
-module Watobo
+# @private 
+module Watobo#:nodoc: all
   module Gui
     
     class InterceptorSettingsFrame < FXVerticalFrame
@@ -206,7 +207,7 @@ module Watobo
         
         #  puts "create scopeframe with scope:"
         # @project.scope
-        # @defineScopeFrame = DefineScopeFrame.new(base_frame, @project.listSites(), YAML.load(YAML.dump(@project.scope)), prefs)
+        # @defineScopeFrame = DefineScopeFrame.new(base_frame, Watobo::Chats.sites(), YAML.load(YAML.dump(@project.scope)), prefs)
         @interceptorSettingsFrame = InterceptorSettingsFrame.new(base_frame, :opts => SCROLLERS_NORMAL|LAYOUT_FILL_X|LAYOUT_FILL_Y)
         
         buttons_frame = FXHorizontalFrame.new(base_frame,

data/lib/watobo/gui/list_box.rb

@@ -1,7 +1,7 @@
 # .
 # list_box.rb
 # 
-# Copyright 2012 by siberas, http://www.siberas.de
+# Copyright 2013 by siberas, http://www.siberas.de
 # 
 # This file is part of WATOBO (Web Application Tool Box)
 #        http://watobo.sourceforge.com
@@ -19,7 +19,8 @@
 # along with WATOBO; if not, write to the Free Software
 # Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
 # .
-module Watobo
+# @private 
+module Watobo#:nodoc: all
   module Gui
     class ListBox < FXGroupBox
       def to_a
@@ -78,7 +79,7 @@ module Watobo
           fxtext = FXText.new(frame, :opts => LAYOUT_FILL_X|LAYOUT_FILL_Y|TEXT_WORDWRAP)
         fxtext.backColor = fxtext.parent.backColor
         fxtext.disable
-        text = text
+        text = "#{info_text}"
         fxtext.setText(text)
         end
 

data/lib/watobo/gui/log_file_viewer.rb

@@ -0,0 +1,55 @@
+# .
+# log_file_viewer.rb
+# 
+# Copyright 2013 by siberas, http://www.siberas.de
+# 
+# This file is part of WATOBO (Web Application Tool Box)
+#        http://watobo.sourceforge.com
+# 
+# WATOBO is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation version 2 of the License.
+# 
+# WATOBO is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License
+# along with WATOBO; if not, write to the Free Software
+# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
+# .
+# @private 
+module Watobo#:nodoc: all
+  module Gui
+    class LogFileViewer < FXVerticalFrame
+
+      include Watobo::Constants
+      def show_logs
+        begin
+           @textbox.setText(Watobo.logs)
+        rescue => bang
+          puts "! Could not show logs"
+          puts bang
+          puts bang.backtrace if $DEBUG
+        end
+      end
+
+   
+      def initialize(parent, mode = nil, opts)
+        opts[:padding]=0
+        
+        super(parent, opts)
+
+        update_btn = FXButton.new(self, "Update",:opts => FRAME_THICK|FRAME_RAISED|LAYOUT_FILL_X|LAYOUT_TOP|LAYOUT_LEFT).connect(SEL_COMMAND){ show_logs }
+        frame = FXVerticalFrame.new(self, :opts => LAYOUT_FILL_X|LAYOUT_FILL_Y|FRAME_SUNKEN)
+        @textbox = FXText.new(frame,  nil, 0, :opts => LAYOUT_FILL_X|LAYOUT_FILL_Y|TEXT_AUTOSCROLL|TEXT_READONLY)
+        @textbox.editable = false
+      show_logs  
+   
+      end
+      
+          end
+
+  end
+end

data/lib/watobo/gui/log_viewer.rb

@@ -1,7 +1,7 @@
 # .
 # log_viewer.rb
 # 
-# Copyright 2012 by siberas, http://www.siberas.de
+# Copyright 2013 by siberas, http://www.siberas.de
 # 
 # This file is part of WATOBO (Web Application Tool Box)
 #        http://watobo.sourceforge.com
@@ -19,7 +19,8 @@
 # along with WATOBO; if not, write to the Free Software
 # Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
 # .
-module Watobo
+# @private 
+module Watobo#:nodoc: all
   module Gui
     class LogViewer < FXVerticalFrame
 
@@ -97,85 +98,5 @@ module Watobo
      
     end
 
-    class LogViewer_UNUSED < FXVerticalFrame
-
-      include Watobo::Constants
-      def purge
-        @lock.synchronize do
-          @textbox.text = ''
-        end
-      end
-
-      def log(sender=nil, log_level, msg )
-        puts "#{sender.class} => #{msg}" if $DEBUG
-        begin
-          t = Time.now
-          now = t.strftime("%m/%d/%Y @ %H:%M:%S")
-
-          begin
-            log_text = case log_level
-            when LOG_INFO
-              "#{now}: #{msg}\n"
-            else
-            ""
-            end
-          rescue => bang
-            puts bang
-            puts bang.backtrace if $DEBUG
-          end
-          @lock.synchronize do
-            log_text << @log_message unless @log_message.nil?
-            @log_message = log_text
-          end
-        rescue => bang
-          puts bang
-          puts bang.backtrace
-        end
-
-      end
-
-      def start_update_timer
-        @timer = FXApp.instance.addTimeout( 50, :repeat => true) {
-           @lock.synchronize do
-             unless @log_message.nil?
-               unless @log_message.empty?
-                 case @mode
-                 when :insert
-             @textbox.insertText(0,@log_message)
-             when :append
-               @textbox.appendText(@log_message)
-             end
-             end
-             @log_message = nil
-             end
-            end
-          }
-      end
-
-      def destroy
-        getApp().removeTimeout(@timer) unless @timer.nil?
-        super
-        1
-      end
-
-      def initialize(parent, mode = :insert, opts)
-        opts[:padding] = 0
-        super(parent, opts)
-
-        @mode = mode
-
-        @log_message = nil
-        @lock = Mutex.new
-        @timer = nil
-
-        #self.connect(SEL_CLOSE, method(:onClose))
-
-        @textbox = FXText.new(self,  nil, 0, :opts => LAYOUT_FILL_X|LAYOUT_FILL_Y)
-        @textbox.editable = false
-        start_update_timer
-      end
-
-    end
-
   end
 end

data/lib/watobo/gui/login_wizzard.rb

@@ -1,7 +1,7 @@
 # .
 # login_wizzard.rb
 # 
-# Copyright 2012 by siberas, http://www.siberas.de
+# Copyright 2013 by siberas, http://www.siberas.de
 # 
 # This file is part of WATOBO (Web Application Tool Box)
 #        http://watobo.sourceforge.com
@@ -41,7 +41,7 @@ class FXLoginWizzard < FXDialogBox
   
   def onRequestClick(sender,sel,item)
     @lastid=item
-    chat = @project.getChat(@request_list.getItemText(@lastid))
+    chat = Watobo::Chats.get_by_id(@request_list.getItemText(@lastid))
     if chat then
       show_chat(chat)
     end
@@ -70,7 +70,7 @@ class FXLoginWizzard < FXDialogBox
     @request_list.clearItems
     idlist.each do |chatid|
       
-      chat = @project.getChat(chatid)
+      chat = Watobo::Chats.get_by_id(chatid)
       puts chat.id
       if chat then
         #puts chatid