-
Notifications
You must be signed in to change notification settings - Fork 0
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
Merge pull request #244 from BalticAmadeus/209-property-setter-and-ge…
…tter-method-do-not-indent-correctly 209 Property Setter and Getter method do not indent correctly
- Loading branch information
Showing
7 changed files
with
148 additions
and
3 deletions.
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,25 @@ | ||
/* formatterSettingsOverride */ | ||
/* { "AblFormatter.blockFormatting": true, | ||
"AblFormatter.propertyFormatting": true }*/ | ||
class AClass: | ||
define private property m_Total as integer no-undo | ||
get. | ||
set. | ||
|
||
define PUBLIC PROPERTY propertyWidthGetterAndSetter AS SomeClass NO-UNDO | ||
GET: | ||
RETURN ?. | ||
END GET. | ||
SET(INPUT pValue AS SomeClass): | ||
DO: | ||
pValue:CallMethod(). | ||
END. | ||
END SET. | ||
|
||
define PRIVATE VARIABLE propertyWidthGetter_ AS SomeClass NO-UNDO. | ||
define PROTECTED PROPERTY propertyWidthGetter AS SomeClass NO-UNDO | ||
GET(): | ||
|
||
RETURN propertyWidthGetter_. | ||
END GET. | ||
end class. |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,25 @@ | ||
/* formatterSettingsOverride */ | ||
/* { "AblFormatter.blockFormatting": true, | ||
"AblFormatter.propertyFormatting": true }*/ | ||
class AClass: | ||
define private property m_Total as integer no-undo | ||
get. | ||
set. | ||
|
||
define PUBLIC PROPERTY propertyWidthGetterAndSetter AS SomeClass NO-UNDO | ||
GET: | ||
RETURN ?. | ||
END GET. | ||
SET(INPUT pValue AS SomeClass): | ||
DO: | ||
pValue:CallMethod(). | ||
END. | ||
END SET. | ||
|
||
define PRIVATE VARIABLE propertyWidthGetter_ AS SomeClass NO-UNDO. | ||
define PROTECTED PROPERTY propertyWidthGetter AS SomeClass NO-UNDO | ||
GET(): | ||
|
||
RETURN propertyWidthGetter_. | ||
END GET. | ||
end class. |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,22 @@ | ||
/* formatterSettingsOverride */ | ||
/* { "AblFormatter.blockFormatting": true, | ||
"AblFormatter.propertyFormatting": true }*/ | ||
|
||
class myRequest implements IWebRequest: | ||
define public property Version as character no-undo | ||
get(): | ||
return web-context:get-cgi-value("ENV", "SERVER_PROTOCOL"). | ||
end get. | ||
set(cProp as char): | ||
undo, throw new AppError(GetReadOnlyMessage(),?). | ||
end set. | ||
|
||
define public property ContentType as character no-undo | ||
get(): | ||
return web-context:get-cgi-value("ENV", "CONTENT_TYPE"). | ||
end get. | ||
set(cProp as char): | ||
undo, throw new AppError(GetReadOnlyMessage(),?). | ||
end set. | ||
|
||
end class. |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,22 @@ | ||
/* formatterSettingsOverride */ | ||
/* { "AblFormatter.blockFormatting": true, | ||
"AblFormatter.propertyFormatting": true }*/ | ||
|
||
class myRequest implements IWebRequest: | ||
define public property Version as character no-undo | ||
get(): | ||
return web-context:get-cgi-value("ENV", "SERVER_PROTOCOL"). | ||
end get. | ||
set(cProp as char): | ||
undo, throw new AppError(GetReadOnlyMessage(),?). | ||
end set. | ||
|
||
define public property ContentType as character no-undo | ||
get(): | ||
return web-context:get-cgi-value("ENV", "CONTENT_TYPE"). | ||
end get. | ||
set(cProp as char): | ||
undo, throw new AppError(GetReadOnlyMessage(),?). | ||
end set. | ||
|
||
end class. |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,19 @@ | ||
/* formatterSettingsOverride */ | ||
/* { "AblFormatter.blockFormatting": true, | ||
"AblFormatter.propertyFormatting": true }*/ | ||
|
||
class Writer implements IWebRequest: | ||
define static public property Registry as BuilderRegistry no-undo | ||
get(): | ||
define variable oRegistry as BuilderRegistry no-undo. | ||
do: | ||
do transaction: | ||
fun(33). | ||
end. | ||
AuthenticationRequestWriterBuilder:InitializeRegistry(oRegistry). | ||
end. | ||
return AuthenticationRequestWriterBuilder:Registry. | ||
end get. | ||
private set. | ||
|
||
end class. |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,19 @@ | ||
/* formatterSettingsOverride */ | ||
/* { "AblFormatter.blockFormatting": true, | ||
"AblFormatter.propertyFormatting": true }*/ | ||
|
||
class Writer implements IWebRequest: | ||
define static public property Registry as BuilderRegistry no-undo | ||
get(): | ||
define variable oRegistry as BuilderRegistry no-undo. | ||
do: | ||
do transaction: | ||
fun(33). | ||
end. | ||
AuthenticationRequestWriterBuilder:InitializeRegistry(oRegistry). | ||
end. | ||
return AuthenticationRequestWriterBuilder:Registry. | ||
end get. | ||
private set. | ||
|
||
end class. |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters