fork of iTunes Remote Control with bugfixes and enhancements
try to catch more errors that stop itrc from updating
+15
-10
+15
-10
iTRC Main.applescript
+15
-10
iTRC Main.applescript
···
461
461
462
462
on getiTunesInfo()
463
463
set theList to {}
464
+
set currentState to "stopped"
465
+
set currentSongStar to "0"
466
+
set currentSongRate to 0
467
+
set songID to 1
468
+
set currentSongPosition to "0"
469
+
set artistName to ""
470
+
set trackName to ""
471
+
set albumName to ""
472
+
set trackDur to 0
473
+
464
474
using terms from application "iTunes"
465
475
tell application "iTunes" of machine fullMachineURI
466
476
if player state is playing then
···
481
491
set trackName to name of current track
482
492
set albumName to album of current track
483
493
set trackDur to duration of current track
484
-
else if player state is stopped then
485
-
set currentState to "stopped"
486
-
set currentSongStar to "0"
487
-
set songID to 1
488
-
set currentSongPosition to "0"
489
-
set artistName to ""
490
-
set trackName to ""
491
-
set albumName to ""
492
-
set trackDur to 0
493
494
end if
494
495
495
496
set currentPlaylist to name of view of first browser window
···
532
533
set contents of text field "tf-artist" of window "win-main" to artistName of cachedTrackInfo
533
534
set contents of text field "tf-title" of window "win-main" to trackName of cachedTrackInfo
534
535
set contents of text field "tf-album" of window "win-main" to albumName of cachedTrackInfo
535
-
set title of window "win-main" to "< " & artistName of cachedTrackInfo & " - " & trackName of cachedTrackInfo & " >"
536
+
try
537
+
set title of window "win-main" to artistName of cachedTrackInfo & " - " & trackName of cachedTrackInfo
538
+
on error
539
+
set title of window "win-main" to "Unknown"
540
+
end try
536
541
set tool tip of text field "tf-artist" of window "win-main" to artistName of cachedTrackInfo
537
542
set tool tip of text field "tf-title" of window "win-main" to trackName of cachedTrackInfo
538
543
set tool tip of text field "tf-album" of window "win-main" to albumName of cachedTrackInfo