--- a/DebugView.st	Fri Nov 09 23:08:07 2018 +0100
+++ b/DebugView.st	Sat Nov 10 00:21:48 2018 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
               All Rights Reserved
@@ -908,6 +910,11 @@
                   itemValue: openIgnoreHaltUntilTimeElapsedDialog
                 )
                (MenuItem
+                  isVisible: isStoppedAtHaltOrBreakPointOrSelectedContextIsWrappedAndHasPreviousIgnoreTime
+                  label: 'For Another Timeduration'
+                  itemValue: ignoreHaltUntilAnotherTimeDurationElapsed
+                )
+               (MenuItem
                   enabled: isStoppedAtHaltOrBreakPointOrSelectedContextIsWrapped
                   label: 'For the Next N Times...'
                   itemValue: openIgnoreHaltNTimesDialog
@@ -932,7 +939,7 @@
                 )
                (MenuItem
                   enabled: isStoppedAtHaltOrBreakPointOrSelectedContextIsWrapped
-                  label: 'If Called from Any Of'
+                  label: 'If Called From'
                   submenuChannel: menuForIgnoreBreakpointIfCalledFromAnyOf
                 )
                )
@@ -1040,6 +1047,8 @@
         nil
         nil
       )
+
+    "Modified: / 09-11-2018 / 20:43:16 / Claus Gittinger"
 !
 
 classMenuSpec
@@ -6626,6 +6635,24 @@
     self initializeContextViewsMiddleButtonMenu.
 !
 
+breakPointMenuSpec
+    |spec|
+
+    LastIgnoreHaltDuration notNil ifTrue:[
+        spec := self class breakPointMenuSpec.
+        spec := spec recursiveCollect:[:el |
+            el = 'For Another Timeduration' ifTrue:[
+                (resources string:'For Another %1' with:LastIgnoreHaltDuration)
+            ] ifFalse:[
+                el
+            ]        
+        ].
+    ].
+    ^ spec.
+
+    "Created: / 09-11-2018 / 20:45:08 / Claus Gittinger"
+!
+
 doIgnoreBreakpoints
     self allowBreakPointsInDebugger:false
 !
@@ -6737,6 +6764,16 @@
         forAll:false.
 !
 
+ignoreHaltUntilAnotherTimeDurationElapsed
+    self
+        addIgnoredHaltForCount:nil orTimeDuration:LastIgnoreHaltDuration orUntilShiftKey:false
+        orThisReceiverClass:false orCurrentProcess:false
+        orIfCalledFromMethod:nil
+        forAll:false.
+
+    "Created: / 09-11-2018 / 20:40:17 / Claus Gittinger"
+!
+
 ignoreHaltUntilShiftKeyIsPressed
     self
         addIgnoredHaltForCount:nil orTimeDuration:nil orUntilShiftKey:true
@@ -7599,6 +7636,13 @@
     ^ isStoppedAtHaltOrBreakPoint or:[self selectedContextIsWrapped]
 !
 
+isStoppedAtHaltOrBreakPointOrSelectedContextIsWrappedAndHasPreviousIgnoreTime
+    ^ self isStoppedAtHaltOrBreakPointOrSelectedContextIsWrapped
+    and:[LastIgnoreHaltDuration notEmptyOrNil]
+
+    "Created: / 09-11-2018 / 20:37:02 / Claus Gittinger"
+!
+
 selectedContextIsWrapped
     |con mthd|
 
@@ -7839,7 +7883,7 @@
                 ]
             ].
 
-            s := Text streamContents:[:s | aContext printWithSeparator:' » ' on:s ].
+            s := Text streamContents:[:s | aContext printWithSeparator:' » ' on:s ].
             "/ s infoPrintCR.
             RememberedCallChain notNil ifTrue:[
                 (RememberedCallChain includesIdentical:aContext) ifTrue:[
@@ -10058,7 +10102,7 @@
 
 printConditionOn:aStream
     ignoredSendingClassAndSelectors notEmptyOrNil ifTrue:[
-        aStream nextPutAll:(' if called from %1 » %2'
+        aStream nextPutAll:(' if called from %1 » %2'
                                 bindWith:ignoredSendingClassAndSelectors first first
                                 with:ignoredSendingClassAndSelectors first second).
         ^ self.