Go back

# Date

/usr/X11R6/share/afterstep/scripts/Date

Details

Full path :

  /usr/X11R6/share/afterstep/scripts/Date

ASCII text:

    WindowTitle {Date}
    WindowSize 360 330      # Taille
    WindowPosition 191 50       # Position
    ForeColor   {black}
    BackColor   {grey85}
    ShadowColor {grey55}
    HilightColor    {grey100}
    Font        -adobe-helvetica-bold-r-*-*-12-*

    Init
     Begin
      WarpPointer 1
      Set $NHour=(GetOutput {date '+%d %m %Y %H %M'} 1 4)
      ChangeValue 10 $NHour
      ChangeTitle 8 $NHour

      Set $NMinu=(GetOutput {date '+%d %m %Y %H %M'} 1 5)
      ChangeValue 14 $NMinu
      ChangeTitle 12 $NMinu

      Set $Day=(GetOutput {date '+%d %m %Y %H %M'} 1 1)
      ChangeValue 20 $Day
      ChangeTitle 18 $Day

      Set $Year=(GetOutput {date '+%d %m %Y %H %M'} 1 3)
      ChangeValue 24 $Year
      ChangeTitle 22 $Year

      Set $Month=(GetOutput {date '+%d %m %Y %H %M'} 1 2)
      ChangeValue 26 $Month

      Set $MaxDay=31
      Set $cmd={date --date '} $Month {/} $MaxDay {/} $Year {' +%d}
      While (GetOutput $cmd 1 1)=={} Do
      Begin
       Set $MaxDay=(Add $MaxDay -1)
       Set $cmd={date --date '} $Month {/} $MaxDay {/} $Year {' +%d}
      End
      ChangeMaxValue 20 $MaxDay

     End

    Widget 1
    Property
     Size 50 30
     Position 190 280
     Type PushButton
     Title {OK}
    Main
     Case message of
      SingleClic :
      Begin
       Do {Exec "date" date -s '} $NHour {:} $NMinu { } $Month {/} $Day {/} $Year{'}
       Quit
      End
    End

    Widget 2
    Property
     Size 50 30
     Position 280 280
     Type PushButton
     Title {Cancel}
    Main
     Case message of
      SingleClic :
      Begin
       Do {Exec "xset" xset s } $TimeOut
       Quit
      End
    End

    Widget 3
    Property
     Size 340 130
     Position 10 10
     Type Rectangle
    Main
     Case message of
      SingleClic :
      Begin
      End
    End

    Widget 4
    Property
     Position 15 2
     Type ItemDraw
     Title {Time}
    Main
     Case message of
      SingleClic :
      Begin
      End
    End

    Widget 5
    Property
     Size 80 80
     Position 240 35
     Type SwallowExec
     Title {xclock}
     SwallowExec {Exec "xclock" xclock -analog -padding 0 -geometry 70x56-1500-1500 -fg MidnightBlue -hd Blue -hl Blue -bg Grey85 -update 1 &}
    Main
     Case message of
      SingleClic :
      Begin
      End
    End

    Widget 6
    Property
     Size 100 100
     Position 230 25
     Type Rectangle
    Main
     Case message of
      SingleClic :
      Begin
      End
    End

    Widget 7
    Property
     Position 35 40
     Type ItemDraw
     Title {Hours:}
    Main
     Case message of
      SingleClic :
      Begin
      End
    End

    Widget 8
    Property
     Position 100 40
     Type ItemDraw
     Title {00}
    Main
     Case message of
      SingleClic :
      Begin
      End
    End

    Widget 9
    Property
     Size 26 26
     Position 95 35
     Type Rectangle
    Main
     Case message of
      SingleClic :
      Begin
      End
    End

    Widget 10
    Property
     Position 125 32
     Type MiniScroll
     Value 15
     MaxValue 23
     MinValue 0
    Main
     Case message of
      SingleClic :
      Begin
       Set $NHour=(GetValue 10)
       If $NHour<10 Then
        Set $NHour=0 $NHour
       ChangeTitle 8 $NHour
      End
    End

    Widget 11
    Property
     Position 35 90
     Type ItemDraw
     Title {Minutes:}
    Main
     Case message of
      SingleClic :
      Begin
      End
    End

    Widget 12
    Property
     Position 100 90
     Type ItemDraw
     Title {00}
    Main
     Case message of
      SingleClic :
      Begin
      End
    End

    Widget 13
    Property
     Size 26 26
     Position 95 85
     Type Rectangle
    Main
     Case message of
      SingleClic :
      Begin
      End
    End

    Widget 14
    Property
     Position 125 82
     Type MiniScroll
     Value 15
     MaxValue 59
     MinValue 0
    Main
     Case message of
      SingleClic :
      Begin
       Set $NMinu=(GetValue 14)
       If $NMinu<10 Then
        Set $NMinu=0 $NMinu
       ChangeTitle 12 $NMinu
      End
    End

    Widget 15
    Property
     Size 340 110
     Position 10 155
     Type Rectangle
    Main
     Case message of
      SingleClic :
      Begin
      End
    End

    Widget 16
    Property
     Position 15 147
     Type ItemDraw
     Title {Date}
    Main
     Case message of
      SingleClic :
      Begin
      End
    End

    Widget 17
    Property
     Position 30 180
     Type ItemDraw
     Title {Day:}
    Main
     Case message of
      SingleClic :
      Begin
      End
    End

    Widget 18
    Property
     Position 80 180
     Type ItemDraw
     Title {00}
    Main
     Case message of
      SingleClic :
      Begin
      End
    End

    Widget 19
    Property
     Size 26 26
     Position 75 175
     Type Rectangle
    Main
     Case message of
      SingleClic :
      Begin
      End
    End

    Widget 20
    Property
     Position 105 172
     Type MiniScroll
     Value 1
     MaxValue 1
     MinValue 1
    Main
     Case message of
      SingleClic :
      Begin
       Set $Day=(GetValue 20)
       If $Day<10 Then
        Set $Day=0 $Day
       ChangeTitle 18 $Day
      End
    End

    Widget 21
    Property
     Position 200 180
     Type ItemDraw
     Title {Year:}
    Main
     Case message of
      SingleClic :
      Begin
      End
    End

    Widget 22
    Property
     Position 250 180
     Type ItemDraw
     Title {1996}
    Main
     Case message of
      SingleClic :
      Begin
      End
    End

    Widget 23
    Property
     Size 41 26
     Position 245 175
     Type Rectangle
    Main
     Case message of
      SingleClic :
      Begin
      End
    End

    Widget 24
    Property
     Position 290 172
     Type MiniScroll
     Value 1996
     MaxValue 1999
     MinValue 1970
    Main
     Case message of
      SingleClic :
      Begin
       Set $Year=(GetValue 24)
       ChangeTitle 22 $Year
       Set $MaxDay=31
       Set $cmd={date --date '} $Month {/} $MaxDay {/} $Year {' +%d}
       While (GetOutput $cmd 1 1)=={} Do
       Begin
        Set $MaxDay=(Add $MaxDay -1)
        Set $cmd={date --date '} $Month {/} $MaxDay {/} $Year {' +%d}
       End
       ChangeMaxValue 20 $MaxDay
       Set $Day=(GetValue 20)
       If $Day<10 Then
        Set $Day=0 $Day
       ChangeTitle 18 $Day
      End
    End

    Widget 25
    Property
     Position 30 225
     Type ItemDraw
     Title {Month:}
    Main
     Case message of
      SingleClic :
      Begin
      End
    End

    Widget 26
    Property
     Position 100 220
     Type PopupMenu
     Title {January|February|March|April|May|June|July|August|September|October|November|December}
    Main
     Case message of
      SingleClic :
      Begin
       Set $Month=(GetValue 26)
       If $Month<10 Then
        Set $Month=0 $Month
       Set $MaxDay=31
       Set $cmd={date --date '} $Month {/} $MaxDay {/} $Year {' +%d}
       While (GetOutput $cmd 1 1)=={} Do
       Begin
        Set $MaxDay=(Add $MaxDay -1)
        Set $cmd={date --date '} $Month {/} $MaxDay {/} $Year {' +%d}
       End
       ChangeMaxValue 20 $MaxDay
       Set $Day=(GetValue 20)
       If $Day<10 Then
        Set $Day=0 $Day
       ChangeTitle 18 $Day
      End
    End

AfterStep version 2.1.2