fix breakage in winlnk

src/bootsupport/modules/punk/winlnk-0.1.1.tm

@@ -615,7 +615,10 @@ tcl::namespace::eval punk::winlnk {
 
         return [dict create localbasepath $localbasepath commonpathsuffix $commonpathsuffix note <incomplete>]
     }
-
+    proc Contents_Get_DataStrings {contents start} {
+        set data_strings [string range $contents $start end]
+        return $data_strings
+    }
     proc Contents_Get_Info {contents} {
 
 

src/modules/punk/winlnk-999999.0a1.0.tm

@@ -615,7 +615,10 @@ tcl::namespace::eval punk::winlnk {
 
         return [dict create localbasepath $localbasepath commonpathsuffix $commonpathsuffix note <incomplete>]
     }
-
+    proc Contents_Get_DataStrings {contents start} {
+        set data_strings [string range $contents $start end]
+        return $data_strings
+    }
     proc Contents_Get_Info {contents} {
 
 

src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/winlnk-0.1.1.tm

@@ -615,7 +615,10 @@ tcl::namespace::eval punk::winlnk {
 
         return [dict create localbasepath $localbasepath commonpathsuffix $commonpathsuffix note <incomplete>]
     }
-
+    proc Contents_Get_DataStrings {contents start} {
+        set data_strings [string range $contents $start end]
+        return $data_strings
+    }
     proc Contents_Get_Info {contents} {
 
 

src/project_layouts/custom/_project/punk.shell-0.1/src/bootsupport/modules/punk/winlnk-0.1.1.tm

@@ -615,7 +615,10 @@ tcl::namespace::eval punk::winlnk {
 
         return [dict create localbasepath $localbasepath commonpathsuffix $commonpathsuffix note <incomplete>]
     }
-
+    proc Contents_Get_DataStrings {contents start} {
+        set data_strings [string range $contents $start end]
+        return $data_strings
+    }
     proc Contents_Get_Info {contents} {
 
 

src/vfs/_vfscommon.vfs/modules/punk/winlnk-0.1.1.tm

@@ -615,7 +615,10 @@ tcl::namespace::eval punk::winlnk {
 
         return [dict create localbasepath $localbasepath commonpathsuffix $commonpathsuffix note <incomplete>]
     }
-
+    proc Contents_Get_DataStrings {contents start} {
+        set data_strings [string range $contents $start end]
+        return $data_strings
+    }
     proc Contents_Get_Info {contents} {