--- a/MCCommitDialog.st	Thu Mar 21 18:19:10 2013 +0100
+++ b/MCCommitDialog.st	Thu Mar 21 18:24:56 2013 +0100
@@ -2,13 +2,51 @@
 
 MCDialog subclass:#MCCommitDialog
 	instanceVariableNames:'workingCopyHolder repositoryHolder versionNameHolder
-		messageHolder messageView versionNameFinderProcess'
+		messageHolder messageView versionNameFinderProcess
+		includeExtrasForSTX'
 	classVariableNames:'LastRepository'
 	poolDictionaries:''
 	category:'SCM-Monticello-St/X UI'
 !
 
 
+!MCCommitDialog class methodsFor:'help specs'!
+
+flyByHelpSpec
+    "This resource specification was automatically generated
+     by the UIHelpTool of ST/X."
+
+    "Do not manually edit this!! If it is corrupted,
+     the UIHelpTool may not be able to read the specification."
+
+    "
+     UIHelpTool openOnClass:MCCommitDialog    
+    "
+
+    <resource: #help>
+
+    ^ super flyByHelpSpec addPairsFrom:#(
+
+#commitMessage
+'A log message describing this version (your changes)'
+
+#includeExtrasForSTX
+'Include extra support files (makefiles) needed to build a binary class library under ST/X.
+If this is not checked, only the plain code is saved which is needed to load the package as bytecode.
+Notice, that those files are not strictly required - they can easily be recreated by loading the package,
+and then recreating the support files from the system browser on the target system.
+Turn this off, if this package is meant to be transported to or shared with other Smalltalk dialects.
+(however, this is transparent to other Smalltalk dialects - these will simply ignore these additional definitions)'
+
+#repository
+'A repository or the name of a directory where the generated package file is to be stored'
+
+#versionName
+'The name of the version (will also be the name of the generated package file)'
+
+)
+! !
+
 !MCCommitDialog class methodsFor:'interface specs'!
 
 contentSpec
@@ -33,7 +71,7 @@
           label: 'Commit Dialog'
           name: 'Commit Dialog'
           min: (Point 10 10)
-          bounds: (Rectangle 0 0 300 300)
+          bounds: (Rectangle 0 0 555 303)
         )
         component: 
        (SpecCollection
@@ -42,12 +80,14 @@
               label: 'Repository:'
               name: 'Label1'
               layout: (LayoutFrame 3 0 4 0 94 0 26 0)
+              activeHelpKey: repository
               translateLabel: true
               adjust: left
             )
            (ComboListSpec
               name: 'RepositoryList'
               layout: (LayoutFrame 101 0 0 0 0 1 25 0)
+              activeHelpKey: repository
               model: repositoryHolder
               comboList: repositoryList
               useIndex: false
@@ -56,12 +96,14 @@
               label: 'Version:'
               name: 'Label2'
               layout: (LayoutFrame 3 0 30 0 94 0 52 0)
+              activeHelpKey: versionName
               translateLabel: true
               adjust: left
             )
            (InputFieldSpec
               name: 'VersionName'
               layout: (LayoutFrame 101 0 30 0 0 1 55 0)
+              activeHelpKey: versionName
               model: versionNameHolder
               immediateAccept: true
               acceptOnReturn: true
@@ -70,13 +112,22 @@
             )
            (TextEditorSpec
               name: 'CommitMessage'
-              layout: (LayoutFrame 0 0 60 0 0 1 0 1)
+              layout: (LayoutFrame 0 0 90 0 0 1 0 1)
+              activeHelpKey: commitMessage
               model: messageHolder
               hasHorizontalScrollBar: true
               hasVerticalScrollBar: true
               hasKeyboardFocusInitially: false
               postBuildCallback: postBuildMessageView:
             )
+           (CheckBoxSpec
+              label: 'Include ST/X Support Files'
+              name: 'CheckBox1'
+              layout: (LayoutFrame 96 0 63 0 232 1 85 0)
+              activeHelpKey: includeExtrasForSTX
+              model: includeExtrasForSTX
+              translateLabel: true
+            )
            )
          
         )
@@ -146,7 +197,8 @@
 
         "/ sigh: make a new snapshot (now with updated version methods)
         version snapshot:version package snapshot.
-
+        version cachable:false. "/ force new a write (otherwise, the mcz is not rewritten)
+        version snapshot includeExtrasForSTX:(self includeExtrasForSTX value).
         repository storeVersion: version.
         super doAccept.
     ].
@@ -157,6 +209,13 @@
 
 !MCCommitDialog methodsFor:'aspects'!
 
+includeExtrasForSTX
+    includeExtrasForSTX isNil ifTrue:[
+        includeExtrasForSTX := true asValue.
+    ].
+    ^ includeExtrasForSTX
+!
+
 messageHolder
     "return/create the 'messageHolder' value holder (automatically generated)"
 
@@ -416,11 +475,11 @@
 !MCCommitDialog class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCCommitDialog.st,v 1.7 2012-09-11 21:01:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCCommitDialog.st,v 1.8 2013-03-21 17:24:56 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCCommitDialog.st,v 1.7 2012-09-11 21:01:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCCommitDialog.st,v 1.8 2013-03-21 17:24:56 cg Exp $'
 !
 
 version_MC
@@ -430,3 +489,4 @@
 version_SVN
     ^ '§Id: MCCommitDialog.st 12 2010-09-15 13:13:22Z vranyj1 §'
 ! !
+