--- a/MenuEditor.st Tue Jul 13 17:37:41 1999 +0200
+++ b/MenuEditor.st Tue Jul 13 17:39:43 1999 +0200
@@ -358,14 +358,9 @@
#(#WindowSpec
#label: 'Basics Item'
#name: 'Basics Item'
- #layout: #(#LayoutFrame 40 0 116 0 306 0 434 0)
- #level: 0
#min: #(#Point 10 10)
#max: #(#Point 1160 870)
- #bounds: #(#Rectangle 40 116 307 435)
- #usePreferredExtent: false
- #returnIsOKInDialog: true
- #escapeIsCancelInDialog: true
+ #bounds: #(#Rectangle 220 200 487 519)
)
#component:
#(#SpecCollection
@@ -454,7 +449,7 @@
#tabable: true
#model: #argument
#group: #inputGroup
- #type: #string
+ #type: #smalltalkObject
#acceptOnReturn: true
#acceptOnTab: true
#acceptOnLostFocus: false
@@ -2083,7 +2078,7 @@
|node parent next state|
- self modifiedChannel value:false.
+ self clearModifiedFlag.
state := false.
self updateSelectionOfImage.
@@ -2277,7 +2272,7 @@
valueOfEnablingCommitButtons to true in the help tool."
self valueOfEnablingCommitButtons value: false.
- self modifiedChannel value: false.
+ self clearModifiedFlag.
slc ~= slices ifTrue:[
tabSelection ~~ 0 ifTrue:[
@@ -2393,7 +2388,7 @@
self helpTool accept.
node contents activeHelpKey: self helpTool helpKey.
self valueOfEnablingCommitButtons value: false.
- self modifiedChannel value: false.
+ self clearModifiedFlag.
] ifFalse:[
node contents buildFromAspects: aspects.
node changed.
@@ -2416,7 +2411,7 @@
node contents toAspects:aspects
].
self valueOfEnablingCommitButtons value: false.
- self modifiedChannel value: false.
+ self clearModifiedFlag.
modified := false
!
@@ -2913,7 +2908,7 @@
^label asBoldText,
(value notNil ifTrue: [': [',
value ,
- (argument notNil ifTrue: [' ', (Text string: argument emphasis: #italic)] ifFalse: ['']),
+ (argument isString ifTrue: [' ', (Text string: argument emphasis: #italic)] ifFalse: ['']),
']'] ifFalse: [''])
! !