equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 1995 by Claus Gittinger / eXept Software AG |
4 COPYRIGHT (c) 1995 by Claus Gittinger / eXept Software AG |
3 All Rights Reserved |
5 All Rights Reserved |
4 |
6 |
5 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
2005 superclassName := 'ApplicationModel'. |
2007 superclassName := 'ApplicationModel'. |
2006 className := 'NewApplication'. |
2008 className := 'NewApplication'. |
2007 methodName := 'windowSpec'. |
2009 methodName := 'windowSpec'. |
2008 categoryName := 'Applications'. |
2010 categoryName := 'Applications'. |
2009 HandCursor := Cursor leftHand. |
2011 HandCursor := Cursor leftHand. |
2010 handleColorBlack := Color black. |
2012 handleColorBlack := self blackColor. |
2011 handleColorWhite := Color white. |
2013 handleColorWhite := self whiteColor. |
2012 handleMasterColor := Color red. |
2014 handleMasterColor := Color red. |
2013 |
2015 |
2014 self backgroundColor: self class defaultViewBackgroundColor. |
2016 self backgroundColor: self class defaultViewBackgroundColor. |
2015 ! |
2017 ! |
2016 |
2018 |