diff --git a/source/clog-form.lisp b/source/clog-form.lisp
index dc75727..412559d 100644
--- a/source/clog-form.lisp
+++ b/source/clog-form.lisp
@@ -948,11 +948,11 @@ optionally fill in with contents of data-list."))
 ;; add-select-options ;;
 ;;;;;;;;;;;;;;;;;;;;;;;;
 
-(defgeneric add-select-options (clog-select select)
+(defgeneric add-select-options (clog-select content)
   (:documentation "Add group of options to select."))
 
-(defmethod add-select-options ((obj clog-select) select)
-  (dolist (value select)
+(defmethod add-select-options ((obj clog-select) content)
+  (dolist (value content)
     (add-select-option obj value value)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
diff --git a/tools/clog-builder.lisp b/tools/clog-builder.lisp
index d8e81ab..c459152 100644
--- a/tools/clog-builder.lisp
+++ b/tools/clog-builder.lisp
@@ -82,12 +82,20 @@
 	(alert-dialog obj result :title "Eval Result")))))
 
 (defun on-show-code (obj)
-  (let* ((win       (create-gui-window obj :title  "Code"
-					   :height 400
-					   :width  650))
-	 (box       (create-panel-box-layout (window-content win)))
-	 (center    (center-panel box))
-	 (center-id (html-id center)))
+  (let* ((win         (create-gui-window obj :title  "Code"
+					     :height 400
+					     :width  650))
+	 (box         (create-panel-box-layout (window-content win)
+					       :left-width 0 :right-width 9
+					       :top-height 30 :bottom-height 0))
+	 (center      (center-panel box))
+	 (center-id   (html-id center))
+	 ;;top panel
+	 (event-drop  (create-select (top-panel box)
+			 :label (create-label (top-panel box)
+					      :content " Event: "))))
+    (setf (width event-drop) (unit :px 200))
+    (add-select-options event-drop '("on-focus" "on-blur"))
     (set-on-window-size win (lambda (obj)
 			      (js-execute obj
 					  (format nil "editor_~A.resize()" (html-id win)))))