X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=pages%2FSDL-CDTrack.html-inc;h=29d4e4ea32ac7c81564e763b3d808223bb6aab9a;hb=1dbe16975541da864f8bfa5169c89a2ab8893bf2;hp=73ec8e9b13de5c84af5eeccbb7427ae9e1531635;hpb=92e293d6d5adcc910443bf2ef174928e266c625d;p=sdlgit%2FSDL-Site.git diff --git a/pages/SDL-CDTrack.html-inc b/pages/SDL-CDTrack.html-inc index 73ec8e9..29d4e4e 100644 --- a/pages/SDL-CDTrack.html-inc +++ b/pages/SDL-CDTrack.html-inc @@ -5,6 +5,7 @@
@@ -31,7 +33,7 @@
 use SDL;
  use SDL::CDROM;
- use SDL::CD;
+ use SDL::CD ':status';
  use SDL::CDTrack;
 
  SDL::init( SDL_INIT_CDROM );
@@ -40,22 +42,34 @@
 
  if( $drives > 0 )
  {
-  my $CD = SDL::CD->new(0); #first drive's CD
-
-  if( $CD != NULL)
-  {
-	if( $CD->status != CD_TRAYEMPTY )
-	{
-	my $track = SDL::CD->track(0);
-	}
-  }
-
+     my $CD = SDL::CD->new(0); #first drive's CD
+
+     if($CD)
+     {
+         if( $CD->status != CD_TRAYEMPTY )
+         {
+             my $track = SDL::CD->track(0);
+         }
+     }
  }
 
- SDL::quit();
+
+
+

CONSTANTS

Top

+
+

The constants are exported by default. You can avoid this by doing:

+
 use SDL::CDTrack ();
 
+
+

and access them directly:

+
 SDL::CDTrack::SDL_AUDIO_TRACK;
 
+
+

or by choosing the export tags below:

+

Export tag: ':type'

+
 SDL_AUDIO_TRACK
+ SDL_DATA_TRACK
 
 
@@ -98,7 +112,12 @@

SEE ALSO

Top

-

SDL::CDROM, SDL::CD

+

SDL::CDROM, SDL::CD

+ +
+

AUTHORS

Top

+
+

See /SDL.html#AUTHORS.

\ No newline at end of file