MCVersionNameAndMessageRequest.st
author Jan Vrany <jan.vrany@labware.com>
Tue, 11 Jul 2023 12:59:07 +0100
branchjv
changeset 1174 f0a16c301971
parent 1167 37c202ea81a8
permissions -rw-r--r--
Make `ProjectDefinition >> #monticelloTimestamps_code` an extension in `stx:goodies/monticello` ...and convert it to use (not so) new annotation-based extension mechanism.
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
1167
37c202ea81a8 Remove unused Squeak UI code
Jan Vrany <jan.vrany@labware.com>
parents: 605
diff changeset
     1
"
37c202ea81a8 Remove unused Squeak UI code
Jan Vrany <jan.vrany@labware.com>
parents: 605
diff changeset
     2
COPYRIGHT (c) 2023 LabWare
37c202ea81a8 Remove unused Squeak UI code
Jan Vrany <jan.vrany@labware.com>
parents: 605
diff changeset
     3
"
82
6dc1d6e38530 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     4
"{ Package: 'stx:goodies/monticello' }"
6dc1d6e38530 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     5
1167
37c202ea81a8 Remove unused Squeak UI code
Jan Vrany <jan.vrany@labware.com>
parents: 605
diff changeset
     6
"{ NameSpace: Smalltalk }"
37c202ea81a8 Remove unused Squeak UI code
Jan Vrany <jan.vrany@labware.com>
parents: 605
diff changeset
     7
82
6dc1d6e38530 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     8
Notification subclass:#MCVersionNameAndMessageRequest
6dc1d6e38530 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     9
	instanceVariableNames:'suggestion'
6dc1d6e38530 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    10
	classVariableNames:''
6dc1d6e38530 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    11
	poolDictionaries:''
605
d1ee5e40d05e category change
Claus Gittinger <cg@exept.de>
parents: 82
diff changeset
    12
	category:'SCM-Monticello-Versioning'
82
6dc1d6e38530 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    13
!
6dc1d6e38530 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    14
1167
37c202ea81a8 Remove unused Squeak UI code
Jan Vrany <jan.vrany@labware.com>
parents: 605
diff changeset
    15
!MCVersionNameAndMessageRequest class methodsFor:'documentation'!
37c202ea81a8 Remove unused Squeak UI code
Jan Vrany <jan.vrany@labware.com>
parents: 605
diff changeset
    16
37c202ea81a8 Remove unused Squeak UI code
Jan Vrany <jan.vrany@labware.com>
parents: 605
diff changeset
    17
copyright
37c202ea81a8 Remove unused Squeak UI code
Jan Vrany <jan.vrany@labware.com>
parents: 605
diff changeset
    18
"
37c202ea81a8 Remove unused Squeak UI code
Jan Vrany <jan.vrany@labware.com>
parents: 605
diff changeset
    19
COPYRIGHT (c) 2023 LabWare
37c202ea81a8 Remove unused Squeak UI code
Jan Vrany <jan.vrany@labware.com>
parents: 605
diff changeset
    20
37c202ea81a8 Remove unused Squeak UI code
Jan Vrany <jan.vrany@labware.com>
parents: 605
diff changeset
    21
37c202ea81a8 Remove unused Squeak UI code
Jan Vrany <jan.vrany@labware.com>
parents: 605
diff changeset
    22
"
37c202ea81a8 Remove unused Squeak UI code
Jan Vrany <jan.vrany@labware.com>
parents: 605
diff changeset
    23
! !
82
6dc1d6e38530 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    24
6dc1d6e38530 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    25
!MCVersionNameAndMessageRequest methodsFor:'as yet unclassified'!
6dc1d6e38530 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    26
6dc1d6e38530 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    27
defaultAction
1167
37c202ea81a8 Remove unused Squeak UI code
Jan Vrany <jan.vrany@labware.com>
parents: 605
diff changeset
    28
    "
37c202ea81a8 Remove unused Squeak UI code
Jan Vrany <jan.vrany@labware.com>
parents: 605
diff changeset
    29
        ^ MCSaveVersionDialog new
37c202ea81a8 Remove unused Squeak UI code
Jan Vrany <jan.vrany@labware.com>
parents: 605
diff changeset
    30
                versionName: suggestion;
37c202ea81a8 Remove unused Squeak UI code
Jan Vrany <jan.vrany@labware.com>
parents: 605
diff changeset
    31
                showModally
37c202ea81a8 Remove unused Squeak UI code
Jan Vrany <jan.vrany@labware.com>
parents: 605
diff changeset
    32
    "
37c202ea81a8 Remove unused Squeak UI code
Jan Vrany <jan.vrany@labware.com>
parents: 605
diff changeset
    33
    self notYetImplemented.
37c202ea81a8 Remove unused Squeak UI code
Jan Vrany <jan.vrany@labware.com>
parents: 605
diff changeset
    34
37c202ea81a8 Remove unused Squeak UI code
Jan Vrany <jan.vrany@labware.com>
parents: 605
diff changeset
    35
    "Modified: / 02-05-2023 / 14:27:43 / Jan Vrany <jan.vrany@labware.com>"
82
6dc1d6e38530 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    36
!
6dc1d6e38530 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    37
6dc1d6e38530 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    38
suggestedName
6dc1d6e38530 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    39
	^ suggestion
6dc1d6e38530 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    40
!
6dc1d6e38530 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    41
6dc1d6e38530 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    42
suggestedName: aString
6dc1d6e38530 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    43
	suggestion _ aString
6dc1d6e38530 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    44
! !
6dc1d6e38530 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    45
6dc1d6e38530 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    46
!MCVersionNameAndMessageRequest class methodsFor:'documentation'!
6dc1d6e38530 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    47
6dc1d6e38530 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    48
version
605
d1ee5e40d05e category change
Claus Gittinger <cg@exept.de>
parents: 82
diff changeset
    49
    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCVersionNameAndMessageRequest.st,v 1.2 2012-09-11 21:15:35 cg Exp $'
82
6dc1d6e38530 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    50
! !
1167
37c202ea81a8 Remove unused Squeak UI code
Jan Vrany <jan.vrany@labware.com>
parents: 605
diff changeset
    51