Changeset 29077 for lang/ruby/ruwin/lib/ruwin/edit_field/rich.rb

Timestamp:

01/26/09 18:54:12 (4 years ago)

Author:

isaisstillalive

Message:

• Richエディットが一応リンクのクリックを処理するように変更。イベント名がダサすぎるので後で考える。
  

Files:

• lang/ruby/ruwin/lib/ruwin/edit_field/rich.rb (modified) (3 diffs)

lang/ruby/ruwin/lib/ruwin/edit_field/rich.rb

@@ -34 +34 @@
         super
         
-        sendMessage EM_SETEVENTMASK, 0, ENM_KEYEVENTS
+        sendMessage EM_SETEVENTMASK, 0, ENM_KEYEVENTS|ENM_LINK
         
         self.background_color = @proparty[:background_color] if @proparty[:background_color]
@@ -59 +59 @@
       end
       
-      
-      def wm_notify msg, hwndFrom, idFrom, code
-        case code
-        when EN_MSGFILTER
-          en_msgfilter msg
+      notifies = {
+        :EN_MSGFILTER => :en_msgfilter,
+        :EN_LINK      => :en_link,
+      }.map{|command, event| "when #{command}; #{event} msg;" }.join
+      class_eval <<-"END"
+        def wm_notify msg, hwndFrom, idFrom, code
+          case code
+          #{notifies}
+          else
+            super
+          end
         end
-      end
+      END
       
       def en_msgfilter msg
@@ -75 +81 @@
       end
       
+      def en_link msg
+        nmhdr1, nmhdr2, nmhdr2, msg, wParam, lParam, first, last = *SWin::Application.cstruct2array(msg.lParam, "UUUUUUUU")
+        case msg
+        when WM_LBUTTONDOWN
+          [:link_lmousedown, first, last]
+        end
+      end
+      
       class Multiline < Rich
         STYLE = EditField::Multiline::STYLE