<commit_before>(in-package :xul)

(defparameter *test-app*
  (make-instance 'xul-application
		 :name "TestApp"
		 :top (xul
		       (window (:title "Test application")
			       (vbox ()
				     (label (:control "hello-label"
						      :accesskey "h"
						      :value "Hello"))
				     (label (:control "bye-label"
						      :accesskey "b"
						      :value "Bye")))))
		 :build-id "0001"
		 :id "TestApplication"))

(run-app *test-app*)
<commit_msg>Button in test<commit_after>(in-package :xul)

(defparameter *test-app*
  (make-instance 'xul-application
		 :name "TestApp"
		 :top (xul
		       (window (:title "Test application")
			       (vbox ()
				     (label (:control "hello-label"
						      :accesskey "h"
						      :value "Hello"))
				     (label (:control "bye-label"
						      :accesskey "b"
						      :value "Bye"))
				     (button (:label "Hello"
						     :on-command "alert('Hello!!');")))))
		 :build-id "0001"
		 :id "TestApplication"))

(run-app *test-app*)

{'fraction_non_alphanumeric': 0.16783216783216784, 'fraction_numerical': 0.007992007992007992, 'mean_word_length': 2.121495327102804, 'pattern_counts': {'":': 0, '<': 3, '<?xml version=': 0, '>': 3, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '602558', 'n_tokens_mistral': 430, 'n_tokens_neox': 314, 'n_words': 77}