equal
deleted
inserted
replaced
4476 |answer dT| |
4476 |answer dT| |
4477 |
4477 |
4478 [ |
4478 [ |
4479 answer := Dialog |
4479 answer := Dialog |
4480 request:(resources string:'How long should this halt/breakpoint be ignored (s/m/h) ?') |
4480 request:(resources string:'How long should this halt/breakpoint be ignored (s/m/h) ?') |
4481 initialAnswer:(LastIgnoreHaltDuration ? '') printString. |
4481 initialAnswer:(LastIgnoreHaltDuration ? '30s') printString. |
4482 answer isEmptyOrNil ifTrue:[^ self]. |
4482 answer isEmptyOrNil ifTrue:[^ self]. |
4483 |
4483 |
4484 dT := TimeDuration readFrom:answer onError:[ nil ]. |
4484 dT := TimeDuration readFrom:answer onError:[ nil ]. |
4485 dT notNil ifTrue:[ |
4485 dT notNil ifTrue:[ |
4486 LastIgnoreHaltDuration := dT. |
4486 LastIgnoreHaltDuration := dT. |
4487 self addIgnoredHaltForCount:nil orTimeDuration:dT. |
4487 self addIgnoredHaltForCount:nil orTimeDuration:dT. |
4488 ^ self. |
4488 ^ self. |
4489 ]. |
4489 ]. |
4490 ] loop |
4490 ] loop |
|
4491 |
|
4492 "Modified: / 27-10-2010 / 13:33:42 / cg" |
4491 ! |
4493 ! |
4492 |
4494 |
4493 openSettingsDialog |
4495 openSettingsDialog |
4494 |settingsList settingsApp| |
4496 |settingsList settingsApp| |
4495 |
4497 |
7054 ! ! |
7056 ! ! |
7055 |
7057 |
7056 !DebugView class methodsFor:'documentation'! |
7058 !DebugView class methodsFor:'documentation'! |
7057 |
7059 |
7058 version |
7060 version |
7059 ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.510 2010-10-27 11:17:37 cg Exp $' |
7061 ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.511 2010-10-27 11:33:50 cg Exp $' |
7060 ! |
7062 ! |
7061 |
7063 |
7062 version_CVS |
7064 version_CVS |
7063 ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.510 2010-10-27 11:17:37 cg Exp $' |
7065 ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.511 2010-10-27 11:33:50 cg Exp $' |
7064 ! ! |
7066 ! ! |
7065 |
7067 |
7066 DebugView initialize! |
7068 DebugView initialize! |