1 files changed, 55 insertions, 0 deletions
diff --git a/FreeCell.st b/FreeCell.st
new file mode 100644
index 0000000..fff7aad
--- /dev/null
+++ b/FreeCell.st
@@ -0,0 +1,55 @@
+" " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " "
+Copyright (c) 2009 Bert Freudenberg
+
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the 'Software'), to deal
+in the Software without restriction, including without limitation the rights
+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in
+all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+SOFTWARE.
+" " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " "
+!
+
+!SugarLauncher methods!
+quit
+	"""override to not save Etoys project on stopping"""
+	self leaveSharedActivity.
+	Smalltalk quitPrimitive
+!
+invite: aBuddy
+	"""override to not enable sharing"""
+	self inform: 'Invitation ignored: sharing is not supported'.
+! !
+
+!FreeCell methods!
+quit
+	"""the game's quit button calls the regular Sugar quit sequence"""
+	SugarLauncher current quit
+! !
+| freecell |
+
+"""Do not show Sugar tool bar. Ctrl-Enter toggles it"""
+Project current flapsSuppressed: true.
+
+"""Black makes the game's colors stand out better"""
+World color: Color black.
+
+"""Open and keep centered"""
+freecell := FreeCell new openInWorld.
+freecell setToAdhereToEdge: #center.
+
+"""zoom to screen extent"""
+OLPCVirtualScreen virtualScreenExtent: freecell extent.
+OLPCVirtualScreen install
+