/usr/lib/exmh/html_stubs.tcl is in exmh 1:2.8.0-4.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 | # Stubs for routines that are in WebTk but not used here.
proc dputs {args} {
return
}
proc Input_Edit {args} {
return 0 ;# never in edit mode
}
proc Input_IsDirty {args} {
return 0
}
proc Input_Mode {args} {
return 0
}
proc Input_Adjust {args} {
return 0
}
proc Undo_Reset {args} {
return
}
proc Undo_Record {args} {
return
}
proc Undo_Mark {args} {
return
}
proc Undo_Init {args} {
return
}
proc Form_Reset {win} {
upvar #0 HM$win var
set var(S_formid) 0
return
}
proc Embed_Reset {args} {
return
}
proc Edit_Reset {args} {
return
}
proc Input_Reset {args} {
return
}
proc StatusLabel {args} {
return .bogus
}
proc StatusLazy {args} {
return
}
proc Mark_ReadTags {args} {
return
}
proc Mark_Current {args} {
return current
}
proc MarkUndefined {args} {
return
}
proc Toolbar_Update {args} {
return
}
proc WinHistoryAdd {args} {
return
}
proc HMmark {args} {
return
}
proc UrlEditLink {args} {
}
proc Stderr {args} {
catch {puts stderr [join $args " "]}
}
|