vcs.maemo.org Git - maemian/blob - nokia-lintian/testset/scripts/tkfoo

   1 #!/bin/sh
   2 #
   3 # Insane amount of empty lines and comments
   4
   5 #
   6 #
   7 #
   8 #
   9
  10 #
  11 #
  12
  13 #
  14 #
  15 #
  16
  17 #
  18 #
  19
  20 #
  21 # This line makes the next one a comment in Tcl \
  22 exec wish "$0" -- ${1+"$@"}
  23
  24 # lintian should not check the following for syntax
  25 # if it detects the line above correctly
  26 # Code snippet taken from eTkTab
  27
  28 if { [array names prefs keybindings] != "" } {
  29   # Read in the file
  30    array set unparsed_bindings [ read_settings_file $prefs(keybindings)]
  31 }