From 372109e385d6de7cf29b378eb6f21edaf15be07c Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Thu, 28 Aug 2008 12:34:00 +0200 Subject: =?UTF-8?q?Listener:=20Disable=20the=20=E2=80=9CSubmit=E2=80=9D=20?= =?UTF-8?q?button=20while=20the=20interpreter=20is=20working,=20move=20sta?= =?UTF-8?q?tus=20messages=20to=20the=20bottom=20left.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- MLKListenerController.h | 1 + MLKListenerController.m | 19 +- MainMenu.nib/classes.nib | 8 +- MainMenu.nib/keyedobjects.nib | 530 ++++++++++++++++++++++-------------------- MainMenu.nib/objects.nib | Bin 8040 -> 8073 bytes 5 files changed, 307 insertions(+), 251 deletions(-) diff --git a/MLKListenerController.h b/MLKListenerController.h index 3a1d725..d9714dd 100644 --- a/MLKListenerController.h +++ b/MLKListenerController.h @@ -24,6 +24,7 @@ IBOutlet id inputField; IBOutlet id outputTextView; IBOutlet id statusText; + IBOutlet id submitButton; } - (IBAction)submit:(id)sender; @end diff --git a/MLKListenerController.m b/MLKListenerController.m index e89adf4..88a58d6 100644 --- a/MLKListenerController.m +++ b/MLKListenerController.m @@ -30,6 +30,8 @@ NSDictionary *attrs; NSString *input = [inputField stringValue]; MLKPackage *package; + + [submitButton setEnabled:NO]; NS_DURING { @@ -40,6 +42,7 @@ // A parsing error. Beep and let the user try again. // XXX Maybe the status line could be made to provide more information on the error. NSBeep(); + [submitButton setEnabled:YES]; [inputField selectText:self]; return; } @@ -71,9 +74,17 @@ [[text mutableString] appendString:@"\n"]; [text endEditing]; - [indicatorText setStringValue:@"Compiling and executing."]; - // ... - [indicatorText setStringValue:@"Ready."]; + [statusText setStringValue:@"Compiling and executing."]; + NS_DURING + { + // ... + } + NS_HANDLER + { + // ... + } + NS_ENDHANDLER + [statusText setStringValue:@"Ready."]; [text beginEditing]; attrs = [NSDictionary dictionaryWithObjectsAndKeys: @@ -86,5 +97,7 @@ [[text mutableString] appendString:@"\n"]; [text endEditing]; + + [submitButton setEnabled:YES]; } @end diff --git a/MainMenu.nib/classes.nib b/MainMenu.nib/classes.nib index c5bb720..df8a2e2 100644 --- a/MainMenu.nib/classes.nib +++ b/MainMenu.nib/classes.nib @@ -5,7 +5,13 @@ ACTIONS = {submit = id; }; CLASS = MLKListenerController; LANGUAGE = ObjC; - OUTLETS = {indicatorText = id; inputField = id; outputTextView = id; statusText = id; }; + OUTLETS = { + indicatorText = id; + inputField = id; + outputTextView = id; + statusText = id; + submitButton = id; + }; SUPERCLASS = NSObject; } ); diff --git a/MainMenu.nib/keyedobjects.nib b/MainMenu.nib/keyedobjects.nib index e055dcc..5b6bfa5 100644 --- a/MainMenu.nib/keyedobjects.nib +++ b/MainMenu.nib/keyedobjects.nib @@ -11,32 +11,32 @@ $class CF$UID - 511 + 514 NSAccessibilityConnectors CF$UID - 508 + 511 NSAccessibilityOidsKeys CF$UID - 509 + 512 NSAccessibilityOidsValues CF$UID - 510 + 513 NSClassesKeys CF$UID - 400 + 402 NSClassesValues CF$UID - 401 + 403 NSConnections @@ -56,34 +56,34 @@ NSNamesKeys CF$UID - 375 + 377 NSNamesValues CF$UID - 376 + 378 NSNextOid - 344 + 345 NSObjectsKeys CF$UID - 291 + 293 NSObjectsValues CF$UID - 374 + 376 NSOidsKeys CF$UID - 402 + 404 NSOidsValues CF$UID - 403 + 405 NSRoot @@ -276,7 +276,7 @@ CF$UID - 122 + 123 @@ -1303,7 +1303,7 @@ NSvFlags 261 - {{434, 14}, {85, 32}} + {{434, 14}, {93, 32}} $class @@ -1436,7 +1436,7 @@ NSvFlags 258 - {{43, 22}, {389, 22}} + {{31, 22}, {401, 22}} $class @@ -1580,7 +1580,7 @@ NSvFlags 256 - {{17, 24}, {21, 17}} + {{5, 22}, {21, 17}} $class @@ -1595,7 +1595,7 @@ NSCellFlags 67239424 NSCellFlags2 - 272629760 + 71303168 NSContents CF$UID @@ -1719,7 +1719,7 @@ NSContents CF$UID - 97 + 121 NSControlView @@ -1729,7 +1729,7 @@ NSSupport CF$UID - 121 + 122 NSTextColor @@ -1737,6 +1737,7 @@ 116 + Ready. $class @@ -1762,14 +1763,14 @@ NSCell CF$UID - 124 + 125 NSEnabled NSFrame CF$UID - 123 + 124 NSNextResponder @@ -1803,17 +1804,17 @@ NSContents CF$UID - 125 + 97 NSControlView CF$UID - 122 + 123 NSSupport CF$UID - 121 + 122 NSTextColor @@ -1821,7 +1822,6 @@ 116 - Ready. {{1, 9}, {530, 244}} $classes @@ -2007,6 +2007,10 @@ CF$UID 289 + + CF$UID + 291 + @@ -2066,22 +2070,22 @@ $class CF$UID - 311 + 313 NSMenuItems CF$UID - 339 + 341 NSName CF$UID - 341 + 343 NSTitle CF$UID - 338 + 340 Minimize @@ -2281,17 +2285,17 @@ $class CF$UID - 311 + 313 NSMenuItems CF$UID - 346 + 348 NSTitle CF$UID - 345 + 347 Toilet Lisp Help @@ -2367,22 +2371,22 @@ $class CF$UID - 311 + 313 NSMenuItems CF$UID - 298 + 300 NSName CF$UID - 314 + 316 NSTitle CF$UID - 296 + 298 Quit Toilet Lisp @@ -2700,17 +2704,17 @@ $class CF$UID - 311 + 313 NSMenuItems CF$UID - 330 + 332 NSTitle CF$UID - 328 + 330 Check Spelling as You Type @@ -2772,17 +2776,17 @@ $class CF$UID - 311 + 313 NSMenuItems CF$UID - 319 + 321 NSTitle CF$UID - 318 + 320 Undo @@ -3045,17 +3049,17 @@ $class CF$UID - 311 + 313 NSMenuItems CF$UID - 334 + 336 NSTitle CF$UID - 332 + 334 Stop Speaking @@ -3540,17 +3544,17 @@ $class CF$UID - 311 + 313 NSMenuItems CF$UID - 326 + 328 NSTitle CF$UID - 325 + 327 Find… @@ -4030,7 +4034,7 @@ NSDestination CF$UID - 122 + 123 NSLabel @@ -4067,6 +4071,29 @@ statusText + + $class + + CF$UID + 276 + + NSDestination + + CF$UID + 91 + + NSLabel + + CF$UID + 292 + + NSSource + + CF$UID + 280 + + + submitButton $class @@ -4077,7 +4104,7 @@ CF$UID - 292 + 294 CF$UID @@ -4093,7 +4120,7 @@ CF$UID - 331 + 333 CF$UID @@ -4105,7 +4132,7 @@ CF$UID - 122 + 123 CF$UID @@ -4117,7 +4144,7 @@ CF$UID - 348 + 350 CF$UID @@ -4153,7 +4180,7 @@ CF$UID - 327 + 329 CF$UID @@ -4161,7 +4188,7 @@ CF$UID - 354 + 356 CF$UID @@ -4173,7 +4200,7 @@ CF$UID - 315 + 317 CF$UID @@ -4185,7 +4212,7 @@ CF$UID - 313 + 315 CF$UID @@ -4197,7 +4224,7 @@ CF$UID - 365 + 367 CF$UID @@ -4205,7 +4232,7 @@ CF$UID - 361 + 363 CF$UID @@ -4213,19 +4240,19 @@ CF$UID - 295 + 297 CF$UID - 312 + 314 CF$UID - 303 + 305 CF$UID - 357 + 359 CF$UID @@ -4233,7 +4260,7 @@ CF$UID - 342 + 344 CF$UID @@ -4261,7 +4288,7 @@ CF$UID - 335 + 337 CF$UID @@ -4269,7 +4296,7 @@ CF$UID - 352 + 354 CF$UID @@ -4285,11 +4312,11 @@ CF$UID - 321 + 323 CF$UID - 304 + 306 CF$UID @@ -4301,15 +4328,15 @@ CF$UID - 320 + 322 CF$UID - 299 + 301 CF$UID - 340 + 342 CF$UID @@ -4325,7 +4352,7 @@ CF$UID - 322 + 324 CF$UID @@ -4337,7 +4364,7 @@ CF$UID - 307 + 309 CF$UID @@ -4345,7 +4372,7 @@ CF$UID - 300 + 302 @@ -4353,22 +4380,22 @@ $class CF$UID - 311 + 313 NSMenuItems CF$UID - 294 + 296 NSName CF$UID - 347 + 349 NSTitle CF$UID - 293 + 295 REPL @@ -4382,19 +4409,19 @@ CF$UID - 295 + 297 CF$UID - 315 + 317 CF$UID - 335 + 337 CF$UID - 342 + 344 @@ -4407,7 +4434,7 @@ NSAction CF$UID - 297 + 299 NSKeyEquiv @@ -4419,7 +4446,7 @@ NSMenu CF$UID - 292 + 294 NSMixedImage @@ -4441,7 +4468,7 @@ NSTitle CF$UID - 296 + 298 Toilet Lisp @@ -4460,23 +4487,23 @@ CF$UID - 299 + 301 CF$UID - 300 + 302 CF$UID - 303 + 305 CF$UID - 304 + 306 CF$UID - 312 + 314 CF$UID @@ -4492,7 +4519,7 @@ CF$UID - 313 + 315 CF$UID @@ -4547,7 +4574,7 @@ NSKeyEquiv CF$UID - 302 + 304 NSKeyEquivModMask 1048576 @@ -4571,7 +4598,7 @@ NSTitle CF$UID - 301 + 303 Preferences… @@ -4623,7 +4650,7 @@ NSAction CF$UID - 306 + 308 NSKeyEquiv @@ -4652,12 +4679,12 @@ NSSubmenu CF$UID - 307 + 309 NSTitle CF$UID - 305 + 307 Services @@ -4666,22 +4693,22 @@ $class CF$UID - 311 + 313 NSMenuItems CF$UID - 309 + 311 NSName CF$UID - 310 + 312 NSTitle CF$UID - 308 + 310 @@ -4798,7 +4825,7 @@ NSAction CF$UID - 317 + 319 NSKeyEquiv @@ -4810,7 +4837,7 @@ NSMenu CF$UID - 292 + 294 NSMixedImage @@ -4832,7 +4859,7 @@ NSTitle CF$UID - 316 + 318 Edit @@ -4864,7 +4891,7 @@ CF$UID - 320 + 322 CF$UID @@ -4892,19 +4919,19 @@ CF$UID - 321 + 323 CF$UID - 322 + 324 CF$UID - 327 + 329 CF$UID - 331 + 333 @@ -4997,7 +5024,7 @@ NSAction CF$UID - 324 + 326 NSKeyEquiv @@ -5031,7 +5058,7 @@ NSTitle CF$UID - 323 + 325 Find @@ -5084,7 +5111,7 @@ NSAction CF$UID - 329 + 331 NSKeyEquiv @@ -5118,7 +5145,7 @@ NSTitle CF$UID - 328 + 330 Spelling @@ -5154,7 +5181,7 @@ NSAction CF$UID - 333 + 335 NSKeyEquiv @@ -5188,7 +5215,7 @@ NSTitle CF$UID - 332 + 334 Speech @@ -5220,7 +5247,7 @@ NSAction CF$UID - 337 + 339 NSKeyEquiv @@ -5232,7 +5259,7 @@ NSMenu CF$UID - 292 + 294 NSMixedImage @@ -5254,7 +5281,7 @@ NSTitle CF$UID - 336 + 338 Window @@ -5286,7 +5313,7 @@ CF$UID - 340 + 342 CF$UID @@ -5344,7 +5371,7 @@ NSAction CF$UID - 344 + 346 NSKeyEquiv @@ -5356,7 +5383,7 @@ NSMenu CF$UID - 292 + 294 NSMixedImage @@ -5378,7 +5405,7 @@ NSTitle CF$UID - 343 + 345 Help @@ -5416,22 +5443,22 @@ NSMaxSize CF$UID - 373 + 375 NSMinSize CF$UID - 372 + 374 NSScreenRect CF$UID - 371 + 373 NSViewClass CF$UID - 351 + 353 NSWTFlags -260571136 @@ -5440,12 +5467,12 @@ NSWindowClass CF$UID - 350 + 352 NSWindowRect CF$UID - 349 + 351 NSWindowStyleMask 7 @@ -5457,7 +5484,7 @@ NSWindowView CF$UID - 352 + 354 {{436, 486}, {394, 245}} @@ -5488,7 +5515,7 @@ NSFrame CF$UID - 370 + 372 NSNextResponder @@ -5498,7 +5525,7 @@ NSSubviews CF$UID - 353 + 355 @@ -5511,19 +5538,19 @@ CF$UID - 354 + 356 CF$UID - 357 + 359 CF$UID - 361 + 363 CF$UID - 365 + 367 @@ -5536,24 +5563,24 @@ NSCell CF$UID - 356 + 358 NSEnabled NSFrame CF$UID - 355 + 357 NSNextResponder CF$UID - 352 + 354 NSSuperview CF$UID - 352 + 354 NSvFlags 256 @@ -5577,12 +5604,12 @@ NSContents CF$UID - 296 + 298 NSControlView CF$UID - 354 + 356 NSSupport @@ -5604,24 +5631,24 @@ NSCell CF$UID - 359 + 361 NSEnabled NSFrame CF$UID - 358 + 360 NSNextResponder CF$UID - 352 + 354 NSSuperview CF$UID - 352 + 354 NSvFlags 256 @@ -5645,17 +5672,17 @@ NSContents CF$UID - 360 + 362 NSControlView CF$UID - 357 + 359 NSSupport CF$UID - 121 + 122 NSTextColor @@ -5675,24 +5702,24 @@ ersersion NSCell CF$UID - 363 + 365 NSEnabled NSFrame CF$UID - 362 + 364 NSNextResponder CF$UID - 352 + 354 NSSuperview CF$UID - 352 + 354 NSvFlags 256 @@ -5716,17 +5743,17 @@ ersersion NSContents CF$UID - 364 + 366 NSControlView CF$UID - 361 + 363 NSSupport CF$UID - 121 + 122 NSTextColor @@ -5744,24 +5771,24 @@ ersersion NSCell CF$UID - 367 + 369 NSEnabled NSFrame CF$UID - 366 + 368 NSNextResponder CF$UID - 352 + 354 NSSuperview CF$UID - 352 + 354 NSvFlags 256 @@ -5785,17 +5812,17 @@ ersersion NSContents CF$UID - 368 + 370 NSControlView CF$UID - 365 + 367 NSSupport CF$UID - 369 + 371 NSTextColor @@ -5882,7 +5909,7 @@ ersersion CF$UID - 315 + 317 CF$UID @@ -5894,7 +5921,7 @@ ersersion CF$UID - 342 + 344 CF$UID @@ -5906,7 +5933,7 @@ ersersion CF$UID - 322 + 324 CF$UID @@ -5922,7 +5949,7 @@ ersersion CF$UID - 352 + 354 CF$UID @@ -5930,11 +5957,11 @@ ersersion CF$UID - 327 + 329 CF$UID - 292 + 294 CF$UID @@ -5950,7 +5977,7 @@ ersersion CF$UID - 331 + 333 CF$UID @@ -5958,7 +5985,7 @@ ersersion CF$UID - 352 + 354 CF$UID @@ -5966,7 +5993,7 @@ ersersion CF$UID - 352 + 354 CF$UID @@ -5974,7 +6001,7 @@ ersersion CF$UID - 292 + 294 CF$UID @@ -5986,7 +6013,7 @@ ersersion CF$UID - 352 + 354 CF$UID @@ -5994,7 +6021,7 @@ ersersion CF$UID - 292 + 294 CF$UID @@ -6006,11 +6033,11 @@ ersersion CF$UID - 335 + 337 CF$UID - 295 + 297 CF$UID @@ -6022,7 +6049,7 @@ ersersion CF$UID - 292 + 294 CF$UID @@ -6030,7 +6057,7 @@ ersersion CF$UID - 348 + 350 CF$UID @@ -6098,7 +6125,7 @@ ersersion CF$UID - 304 + 306 CF$UID @@ -6128,11 +6155,11 @@ ersersion CF$UID - 361 + 363 CF$UID - 300 + 302 CF$UID @@ -6140,7 +6167,7 @@ ersersion CF$UID - 342 + 344 CF$UID @@ -6156,7 +6183,7 @@ ersersion CF$UID - 354 + 356 CF$UID @@ -6164,7 +6191,7 @@ ersersion CF$UID - 340 + 342 CF$UID @@ -6172,11 +6199,11 @@ ersersion CF$UID - 122 + 123 CF$UID - 292 + 294 CF$UID @@ -6184,15 +6211,15 @@ ersersion CF$UID - 357 + 359 CF$UID - 327 + 329 CF$UID - 348 + 350 CF$UID @@ -6204,7 +6231,7 @@ ersersion CF$UID - 365 + 367 CF$UID @@ -6244,14 +6271,6 @@ ersersion CF$UID 281 - - CF$UID - 377 - - - CF$UID - 378 - CF$UID 379 @@ -6270,15 +6289,15 @@ ersersion CF$UID - 10 + 383 CF$UID - 383 + 384 CF$UID - 384 + 10 CF$UID @@ -6302,27 +6321,27 @@ ersersion CF$UID - 386 + 390 CF$UID - 390 + 391 CF$UID - 383 + 388 CF$UID - 166 + 392 CF$UID - 391 + 385 CF$UID - 392 + 166 CF$UID @@ -6334,7 +6353,7 @@ ersersion CF$UID - 384 + 395 CF$UID @@ -6342,7 +6361,7 @@ ersersion CF$UID - 397 + 386 CF$UID @@ -6352,6 +6371,14 @@ ersersion CF$UID 399 + + CF$UID + 400 + + + CF$UID + 401 + NSButton @@ -6415,7 +6442,7 @@ ersersion $class CF$UID - 395 + 397 @@ -6468,7 +6495,7 @@ ersersion CF$UID - 307 + 309 CF$UID @@ -6500,15 +6527,15 @@ ersersion CF$UID - 352 + 354 CF$UID - 342 + 344 CF$UID - 312 + 314 CF$UID @@ -6536,7 +6563,7 @@ ersersion CF$UID - 335 + 337 CF$UID @@ -6556,11 +6583,11 @@ ersersion CF$UID - 357 + 359 CF$UID - 313 + 315 CF$UID @@ -6568,7 +6595,7 @@ ersersion CF$UID - 292 + 294 CF$UID @@ -6584,7 +6611,7 @@ ersersion CF$UID - 321 + 323 CF$UID @@ -6592,7 +6619,7 @@ ersersion CF$UID - 299 + 301 CF$UID @@ -6606,6 +6633,10 @@ ersersion CF$UID 148 + + CF$UID + 291 + CF$UID 208 @@ -6624,7 +6655,7 @@ ersersion CF$UID - 361 + 363 CF$UID @@ -6632,7 +6663,7 @@ ersersion CF$UID - 348 + 350 CF$UID @@ -6648,7 +6679,7 @@ ersersion CF$UID - 304 + 306 CF$UID @@ -6692,11 +6723,11 @@ ersersion CF$UID - 365 + 367 CF$UID - 354 + 356 CF$UID @@ -6708,7 +6739,7 @@ ersersion CF$UID - 331 + 333 CF$UID @@ -6716,7 +6747,7 @@ ersersion CF$UID - 340 + 342 CF$UID @@ -6728,7 +6759,7 @@ ersersion CF$UID - 295 + 297 CF$UID @@ -6760,7 +6791,7 @@ ersersion CF$UID - 315 + 317 CF$UID @@ -6776,7 +6807,7 @@ ersersion CF$UID - 327 + 329 CF$UID @@ -6812,7 +6843,7 @@ ersersion CF$UID - 322 + 324 CF$UID @@ -6820,11 +6851,11 @@ ersersion CF$UID - 300 + 302 CF$UID - 320 + 322 CF$UID @@ -6836,7 +6867,7 @@ ersersion CF$UID - 303 + 305 CF$UID @@ -6868,7 +6899,7 @@ ersersion CF$UID - 122 + 123 CF$UID @@ -6888,14 +6919,6 @@ ersersion NS.objects - - CF$UID - 404 - - - CF$UID - 405 - CF$UID 406 @@ -7172,10 +7195,6 @@ ersersion CF$UID 474 - - CF$UID - 71 - CF$UID 475 @@ -7188,6 +7207,10 @@ ersersion CF$UID 477 + + CF$UID + 71 + CF$UID 478 @@ -7308,6 +7331,18 @@ ersersion CF$UID 507 + + CF$UID + 508 + + + CF$UID + 509 + + + CF$UID + 510 + 337 @@ -7347,6 +7382,7 @@ ersersion 153 245 39 + 344 195 21 122 diff --git a/MainMenu.nib/objects.nib b/MainMenu.nib/objects.nib index b118519..fca9a90 100644 Binary files a/MainMenu.nib/objects.nib and b/MainMenu.nib/objects.nib differ -- cgit v1.2.3