X-Git-Url: http://nitlanguage.org

diff --git a/lib/curl/curl.nit b/lib/curl/curl.nit
index d0c445d..c087642 100644
--- a/lib/curl/curl.nit
+++ b/lib/curl/curl.nit
@@ -40,7 +40,7 @@ end
 # CURL Request
 class CurlRequest
 
-	var verbose: Bool writable = false
+	var verbose: Bool = false is writable
 	private var curl: nullable Curl = null
 
 	# Launch request method
@@ -76,8 +76,8 @@ class CurlHTTPRequest
 	super CurlCallbacksRegisterIntern
 
 	var url: String
-	var datas: nullable HeaderMap writable = null
-	var headers: nullable HeaderMap writable = null
+	var datas: nullable HeaderMap = null is writable
+	var headers: nullable HeaderMap = null is writable
 
 	# Set the user agent for all following HTTP requests
 	fun user_agent=(name: String)
@@ -85,8 +85,7 @@ class CurlHTTPRequest
 		curl.prim_curl.easy_setopt(new CURLOption.user_agent, name)
 	end
 
-	init (url: String, curl: nullable Curl)
-	do
+	init (url: String, curl: nullable Curl) is old_style_init do
 		self.url = url
 		self.curl = curl
 	end
@@ -201,18 +200,17 @@ class CurlMailRequest
 	super CurlRequest
 	super CCurlCallbacks
 
-	var headers: nullable HeaderMap writable = null
-	var headers_body: nullable HeaderMap writable = null
-	var from: nullable String writable = null
-	var to: nullable Array[String] writable = null
-	var cc: nullable Array[String] writable = null
-	var bcc: nullable Array[String] writable = null
-	var subject: nullable String writable = ""
-	var body: nullable String writable = ""
+	var headers: nullable HeaderMap = null is writable
+	var headers_body: nullable HeaderMap = null is writable
+	var from: nullable String = null is writable
+	var to: nullable Array[String] = null is writable
+	var cc: nullable Array[String] = null is writable
+	var bcc: nullable Array[String] = null is writable
+	var subject: nullable String = "" is writable
+	var body: nullable String = "" is writable
 	private var supported_outgoing_protocol: Array[String] = ["smtp", "smtps"]
 
-	init (curl: nullable Curl)
-	do
+	init (curl: nullable Curl) is old_style_init do
 		self.curl = curl
 	end
 
@@ -338,7 +336,7 @@ end
 
 # Callbacks attributes
 abstract class CurlCallbacksRegisterIntern
-	var delegate: nullable CurlCallbacks writable = null
+	var delegate: nullable CurlCallbacks = null is writable
 end
 
 # Abstract Curl request response
@@ -351,12 +349,6 @@ class CurlResponseFailed
 
 	var error_code: Int
 	var error_msg: String
-
-	init (err_code: Int, err_msg: String)
-	do
-		self.error_code = err_code
-		self.error_msg = err_msg
-	end
 end
 
 # Success Abstract Response Success Class
@@ -467,7 +459,7 @@ class HeaderMapIterator
 	super MapIterator[String, String]
 
 	private var iterator: Iterator[Couple[String, String]]
-	init(map: HeaderMap) do self.iterator = map.arr.iterator
+	init(map: HeaderMap) is old_style_init do self.iterator = map.arr.iterator
 
 	redef fun is_ok do return self.iterator.is_ok
 	redef fun next do self.iterator.next