Create new JSON_OBJECT

draft/library/wsf_js_widget/kernel/validator/wsf_max_validator.e

@@ -35,10 +35,10 @@ feature -- Implementation
 
 feature -- State
 
-	state: JSON_OBJECT
+	state: WSF_JSON_OBJECT
 		do
 			Result := Precursor
-			Result.put (create {JSON_NUMBER}.make_integer (max), "max")
+			Result.put_integer (max, "max")
 		end
 
 feature -- Properties

draft/library/wsf_js_widget/kernel/validator/wsf_min_validator.e

@@ -35,10 +35,10 @@ feature -- Implementation
 
 feature -- State
 
-	state: JSON_OBJECT
+	state: WSF_JSON_OBJECT
 		do
 			Result := Precursor
-			Result.put (create {JSON_NUMBER}.make_integer (min), "min")
+			Result.put_integer (min, "min")
 		end
 
 feature -- Properties

draft/library/wsf_js_widget/kernel/validator/wsf_regexp_validator.e

@@ -40,12 +40,12 @@ feature -- Implementation
 
 feature -- State
 
-	state: JSON_OBJECT
+	state: WSF_JSON_OBJECT
 		do
 			create Result.make
-			Result.put (create {JSON_STRING}.make_json ("WSF_REGEXP_VALIDATOR"), "name")
-			Result.put (create {JSON_STRING}.make_json (regexp_string), "expression")
-			Result.put (create {JSON_STRING}.make_json (error), "error")
+			Result.put_string ("WSF_REGEXP_VALIDATOR", "name")
+			Result.put_string (regexp_string, "expression")
+			Result.put_string (error, "error")
 		end
 
 feature -- Properties

draft/library/wsf_js_widget/kernel/validator/wsf_validator.e

@@ -17,12 +17,12 @@ feature {NONE} -- Initialization
 
 feature -- Access
 
-	state: JSON_OBJECT
+	state: WSF_JSON_OBJECT
 			-- JSON state of this validator
 		do
 			create Result.make
-			Result.put (create {JSON_STRING}.make_json (generator), "name")
-			Result.put (create {JSON_STRING}.make_json (error), "error")
+			Result.put_string (generator, "name")
+			Result.put_string (error, "error")
 		end
 
 	is_valid (input: G): BOOLEAN